use strict; 
use Data::Dumper;

my $s = "1 A\n2 B\n"; 

my %h =map { $1 => $2 } $s =~ /(\d+)\s+(\S+)/mg;
print Dumper(\%h);