Select Code to Download

#!perl
use strict;
...
  $hash{$f[0]}{$f[1].$f[2]}{$f[3]} = 1
}
print Dumper(\%hash);

sub create_db {
  unlink 'mydb.sqlite' if -e 'mydb.sqlite';
...
  
  return $dbh;
}