in reply to hash loop print
my (%numbers); push @{$numbers{found} }, "1", "2", "3", "4", "5", "6", "7", "8", +"9", "10"; for (0 .. 9) { print $numbers{found}[$_]. "\n"; } [download]