my @keys = (1..5);
my @values = (6..8);
my %hash;
my @TEMP = @keys; # can use @keys if OK to mangle
@hash{splice @TEMP, 0, @values) = @values;
@hash{@TEMP} = ('') x @TEMP;
[download]

-- Randal L. Schwartz, Perl hacker