use warnings;
@input = (
'U   Np  Pu',
'238 237 244',
);
@name = $input[0] =~ /\S+/g;
@number{@name} = $input[1] =~ /\S+/g;
print "The weight of Pu is ", $number{"Pu"}, "\n";
__END__