my @c;
push @c, [ $a[$_], $b[$_] ] for 0 .. $#a;