sub bigger_than {
-
my ($test,@values); # Create local variables
-
($test, @values) = @_; # Split argument list
-
local (@result); # A place to store result
-
foreach $val (@values) { # Step through arg list
-
if( $val > $test ) { # Should we add this value
-
push(@result, $val); # add to result list
-
}
-
}
-
@result; # Required to specify what to be returned
|
