You need to set @pair and @value to lists rather than scalars. You can use a hash slice rather than map as shown.

my @pairs = qw( A B C D );
my @vals  = 1..4;

my @hash{@pairs} = @vals;
while ( my($key,$val) = each %hash ) {
    print "$key:$val\n";
}
[download]

It looks like you have newline separated data in $pair so you could

my @pairs = split "\n", $pair;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print