#!/usr/bin/perl
 
# zip was only added to List::Util v1.56 2021-03-30
# and this platform has an older version, so we provide
# our own simplistic version here
 
use v5.10;
 
sub zip (\@\@) {
    my ($a, $b) = @_;
    my @z;
    for (my $i; $i < @$a and $i < @$b; $i++ ) {
        push @z, [ $a->[$i], $b->[$i] ];
    }
    return @z;
}
 
# on your platform you can probably add zip to the list below
use List::Util qw(pairmap unpairs);
 
@keys = qw(x y a f e n);
@vals = qw(1 2 3 4 5 6);
 
pairmap { push @new_keys, $a; push @new_vals, $b }
    unpairs
        sort { $a->[0] cmp $b->[0] }
            zip @keys, @vals;
 
say join ', ', @new_keys;
say join ', ', @new_vals;

IyEvdXNyL2Jpbi9wZXJsCgojIHppcCB3YXMgb25seSBhZGRlZCB0byBMaXN0OjpVdGlsIHYxLjU2IDIwMjEtMDMtMzAKIyBhbmQgdGhpcyBwbGF0Zm9ybSBoYXMgYW4gb2xkZXIgdmVyc2lvbiwgc28gd2UgcHJvdmlkZQojIG91ciBvd24gc2ltcGxpc3RpYyB2ZXJzaW9uIGhlcmUKCnVzZSB2NS4xMDsKCnN1YiB6aXAgKFxAXEApIHsKICAgIG15ICgkYSwgJGIpID0gQF87CiAgICBteSBAejsKICAgIGZvciAobXkgJGk7ICRpIDwgQCRhIGFuZCAkaSA8IEAkYjsgJGkrKyApIHsKICAgICAgICBwdXNoIEB6LCBbICRhLT5bJGldLCAkYi0+WyRpXSBdOwogICAgfQogICAgcmV0dXJuIEB6Owp9CgojIG9uIHlvdXIgcGxhdGZvcm0geW91IGNhbiBwcm9iYWJseSBhZGQgemlwIHRvIHRoZSBsaXN0IGJlbG93CnVzZSBMaXN0OjpVdGlsIHF3KHBhaXJtYXAgdW5wYWlycyk7CgpAa2V5cyA9IHF3KHggeSBhIGYgZSBuKTsKQHZhbHMgPSBxdygxIDIgMyA0IDUgNik7CgpwYWlybWFwIHsgcHVzaCBAbmV3X2tleXMsICRhOyBwdXNoIEBuZXdfdmFscywgJGIgfQogICAgdW5wYWlycwogICAgICAgIHNvcnQgeyAkYS0+WzBdIGNtcCAkYi0+WzBdIH0KICAgICAgICAgICAgemlwIEBrZXlzLCBAdmFsczsKCnNheSBqb2luICcsICcsIEBuZXdfa2V5czsKc2F5IGpvaW4gJywgJywgQG5ld192YWxzOw==