my %hash $hash{$.} = $_ while <>;