Select Code to Download

use DB_File;
my $hash;
...
{
  print $_ if exists $hash{$_};
}

my $h = 0;
foreach (split("", $line)) {
  $h+=ord($_)
}
$h = $h % 256;

file1/0
file1/1
...
file2/1
...
file2/255