($a = int(rand(10)), sub{print shift,"\n"}->($a)) for 1..5;