while (my $key1 = shift @keys) {