my @foobar= map { ($bar[$_],$foo[$_]) } 0..$#bar;