for my $index ( 0 .. @{$val} -1 ) {
   do_stuff()
}