sub get_parsed_lines {
  my $file = shift;
  my $csv = Text::CSV_XS->new();
  my %hash;
  open my $in, '<', $file or die "Read failed: $!\n";
  while ( <$in> ) {
    $csv->parse( $_ ) or warn "Bad data: $_\n", next;
    my @row = $csv->fields();
    $hash{ $row[ 2 ] } = \@row;
  }
  close $in or die "Failed to close $file: $!\n";
  return \%hash;
}

##</code><code>##

    $hash{ join( ',', @row[ 0, 2, 3] ) } = \@row;