Take a look at tye's mapcar -- map for more than one list with which you can write (untested):

my %local = mapcar { @_ } \@keys, \@values;
[download]