for my $i ($[ .. $#array) { $foo[$i] = $array[$i]; }