($a = int(rand(10)), sub{print shift,"\n"}->($a)) for 1..5; [download]
In reply to Re: calling subroutines by Lennotoecom in thread calling subroutines by bobosm