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