sub bigger_than {
-
local($test,@values); # Create local variables for
-
test number and original list
-
($test,@values) = @_; # Split argument list and give nicer names -- see previous foil for nicer notation!
-
local(@result); # A place to store and return result
-
foreach $val (@values) { # Step through
-
argument list
-
if( $val > $test ) { # Should we add this value
-
push(@result,$val); # add to result list
-
}
-
}
-
@result; # Required to specify what to be returned
|
