programming-examples/perl/Subroutine/Using shift(@_) to get value passed into a subroutine.pl

$value = 10;
printifOK ($value);

sub printifOK
{
    my $internalvalue = shift(@_);

    if ($internalvalue > 10 ) {
        print "Value is $value.\n";
    } else {
        print "Value is too small.\n";
    }
}