my %data;
while(<DATA>){
    chomp;
    my $val = <DATA>;
    chomp($val);
    $data{$_} = $val;
}

use Data::Dumper;
print Dumper \%data;

__DATA__
A
 33
B
 22

__OUTPUT__

$VAR1 = {
          'A' => ' 33',
          'B' => ' 22'
        };

##</code><code>##

while(<DATA>){
    chomp;
    my $val = <DATA>;
    chomp($val);
    $$_ = $val;
}

print "A: $A\n";
print "B: $B\n";

__DATA__
A
 33
B
 22