Find ( 3, \&english_bobby );

# Find( number_to_find, sub_ref_to_do )
sub Find {
    my ( $num, $sub ) = @_;
    &$sub for 1..$num;
    print "What have we here?\n";
}

sub english_bobby { print "Hello " }
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print