Help for this page

Select Code to Download


  1. or download this
    my %index;
    @index{@list1} = @list2;
    
  2. or download this
    for (my $i = 0; $i <= $#list1; $i++) {
      push @result, $list1[$i], $list2[$i];
    }