#!/usr/bin/perl -w

  my %hashtable;

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

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

##</code><code>##

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

    if ( $one_number >= 20 ) {

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

##</code><code>##

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

##</code><code>##

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