use strict;
use warnings;
use Data::Dumper;

my $File = "inp.txt";
open FILE, '<' , $File or die $!;
my %hashofstates;
while (my $line=<FILE>)
{
 chomp $line;
 my ($key, $val) = split /\s+/, $line ,2;
 $hashofstates->($key) = $val;
}
close FILE or die 'Could not close file';
print (values \%hashofstates);