NAME,TRANSFER_FORM,TRANSFER_TO,DATE_TIME
James,MICU,2E,2016-08-19T16:00:00
Sarah,3W,SICU,2016-09-03T15:45:00
James,2E,ICU,2016-08-20T03:00:00
Hank,PCU,2W,2016-10-01T02:00:00

my $fh = open './test.csv', :r;
my $parser = CSV::Parser.new( file_handle => $fh, contains_header_row => True );
my %data;
my %icu_transfers;

until $fh.eof {
  %data = %($parser.get_line());
  %icu_transfers{%data<NAME>} = %data if (%data<TRANSFER_TO> eq 'ICU')
}

say %icu_transfers;