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