$ perl -E '
> @key = sub {
>     map { $_[ 0 ]->[ $_ ], $_[ 1 ]->[ $_ ] }
>     0 .. $#{ $_[ 0 ] }
>     }->( [ qw{ A B C } ], [ qw{ 1 2 3 } ] );
> say qq{@key};'
A 1 B 2 C 3
$