And for a more generic solution, e.g., to interleave any number of lists, use tye's mapcar -- map for more than one list. E.g.

my @interleave = mapcar { @_ } \@list1, \@list2, \@list3;
[download]