Or even more simply:

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my $s = qq{1 A\n2 B\n};
 ;;
 my %h = $s =~ /(\d+)\s+(\S+)/g;
 print Dumper(\%h);
"
$VAR1 = {
          '1' => 'A',
          '2' => 'B'
        };
[download]