#!/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
####
key one is abc
key two is xyz
##
##
key one is abc
key two is xyz
key one is def