use strict;
use warnings;

x($_)for (0..5); #sub x won't print any num >1
print "42\n";;


sub x
{
   my $num = shift;
   return if $num >1;
   print "$num\n";
}

__END__
Prints:
0
1
42