for (my $i = 0; $i <= $#list1; $i++) {
  push @result, $list1[$i], $list2[$i];
}