Select Code to Download

#!/usr/bin/perl -w

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

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

    my $one_number = $numbers[$hashtable{$name} - 1]; ### Error warnin
+g in this line
...

        print "$name $hashtable{$name} $one_number\n";  ### Error warn
+ing in this line

say "<$name>" unless exists $hashtable{$name};

say map {my $_=$_; s/([^[:print:]])/sprintf '\\%03o', $1/ge; "<$_>"} $
+name
  unless exists $hashtable{$name};