foreach $a (0..@data-1) { print or do something ; } ## end of foreach