http://www.perlmonks.org?node_id=73497


in reply to Mixing up da Arrays (Golf)

See mapcar -- map for more than one list: 

use mapcar;
my @mix= mapcar {@_}, \@a1, \@a2, \@a3;

[download]

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

In Section Seekers of Perl Wisdom