use strict; use warnings; my %hrates; while( ) { chomp; next if /^Patient/; my ($name, $heartrate) = split; $hrates{$name} = $heartrate; } print %hrates; __DATA__ Patient Heart Rates Melly 70 Glenn 69