Help for this page

Select Code to Download

Select or download this

open (CSV, "<", $file) or die $!;
  my %subhash;
    for my $line ( split "\n" ) {
...
    }
    $hash{ $subhash{ $file } } = \%subhash;
}