use strict;
use Data::Dump qw/dump/;
my %loco_data = <DATA>;
print dump \%loco_data;
__DATA__
123
234
345
456

#{
#  "123\n" => 234
#             ,
#  "345\n" => 456
#             ,
#}