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