Help for this page
#!/usr/bin/perl use strict; ... push(@{$hash{$digest}}, $location); } }
#!/usr/bin/perl use strict; ... } seek($input, 0, 0); }