; # remove header line $/=undef; # instead of File::Slurp my %rates = split /\s+/, ; print map { "$_ $rates{$_}\n" } keys %rates; __DATA__ Patient Heart Rates Molly 70 Glenn 69