You should probably avoid destroying @foo during the merge: my @foobar= map { ($bar[$_],$foo[$_]) } 0..$#bar; or

use mapcar;
my @foobar= mapcar { @_ } \@bar, \@foo;
[download]

See mapcar.

        - tye (but my friends call me "Tye")