#!/usr/bin/perl -w
use strict;

my @value_pairs = qw (one abc two xyz);
my %hash = @value_pairs;

foreach my $key (keys %hash)
{
   print "key $key is $hash{$key}\n";
}
__END__
prints:
key one is abc
key two is xyz
key one is def

##</code><code>##

key one is abc
key two is xyz

##</code><code>##

key one is abc
key two is xyz
key one is def