#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11114912
use warnings;

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

my %h = split ' ', $s;

use Data::Dump 'dd'; dd \%h;