Select Code to Download

use strict;
use warnings;
...
close $inFH or die qq{close: < HEREDOC: $!\n};

print Data::Dumper->Dumpxs( [ \ %lookup ], [ qw{ *lookup } ] );

%lookup = (
            'EOA213345' => 1,
...
            'COA213345' => 1,
            'DOB213345' => 1
          );