Re^4: Column Heading and Split Function

<DATA>;    # remove header line
$/=undef;  # instead of File::Slurp
my %rates = split /\s+/, <DATA>;

print map { "$_ $rates{$_}\n" } keys %rates;

__DATA__
Patient Heart Rates
Molly   70
Glenn   69
[download]

Comment on Re^4: Column Heading and Split Function Download Code

Replies are listed 'Best First'.
Re^5: Column Heading and Split Function by Not_a_Number (Prior) on Mar 28, 2013 at 20:07 UTC
`$. > 1 and say join ' ', split while <DATA>;`	[reply] [d/l]
Re^6: Column Heading and Split Function by McA (Priest) on Mar 28, 2013 at 20:25 UTC
holy moly... ;-) (yes, yes, also a ++)	[reply]
Re^6: Column Heading and Split Function by Anonymous Monk on Mar 28, 2013 at 23:37 UTC
<>; say <>;	[reply]