#!/usr/bin/env perl 
use strict;
use warnings;
use Data::Dumper;

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

my %h = split /\s/, $s;
print Dumper(\%h);