@combined = map { $list1[$_], $list2[$_] } 
            0 .. ($#list1 > $#list2 ? $#list1 : $#list2);