http://www.perlmonks.org?node_id=1025991


in reply to Title of Column and Split Function

use strict; use warnings;
my %hrates;
while( <DATA> ) {
    chomp;
    next if /^Patient/;
    my ($name, $heartrate) = split;
    $hrates{$name} = $heartrate;
}
print %hrates;

__DATA__
Patient Heart Rates
Melly   70 
Glenn   69

[download]

In Section Seekers of Perl Wisdom