for (my $i = 0; $i < @list; $i++) { something($list[$i]); }