my @data = (1,0,1,2,3,4,5,6,7,8,9,11,2,2,3,34,5,6,7,8,81); #### for (0 ... $#data) { output($data[$_]); #### for $element (@data) { output($element); }