#!/usr/bin/perl -w

  my %hashtable;

      my $fn = <>;  ##### File 1 is the input.

      open(FH, "$fn") || die "Cannot open file";