in reply to Extracting lines starting with a pattern from an array

use Text::CSV;

my $csv = Text::CSV->new({ sep_char => chr(9) });
my $file = shift;
chomp($file);

open my $fh, '<', $file;
while ( my $row = $csv->getline( $fh ) ) {
  $index{$row->[0]} = $row
}

[download]
Dum Spiro Spero

In Section Seekers of Perl Wisdom