Select Code to Download

sub get_parsed_lines {
  my $file = shift;
...
  close $in or die "Failed to close $file: $!\n";
  return \%hash;
}

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