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";
}

##</code><code>##

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