while(<$in>){
  $csv->parse( $_ ) or warn "Bad data: $_\n", next;
  my @row = $csv->fields();
  $hashed{ $row[ 0 ] } = \@row; 
}close $in;