use File::Slurp;

$_ = read_file(\*DATA);
/$/mg; # skip first line
my %rates = /^(\w+)\h+(\d+)/mg;

$, = "\t";
print %rates;

__DATA__
Patient Heart Rates
Molly   70
Glenn   69