#!/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;