Select Code to Download

#!/usr/bin/perl
use strict;
...
  print "found $line\n" if $zipcodes{ $line };
}
__END__

use Path::Tiny;
my $file = 'index.txt';
my %zipcodes = map { $_, 1 } path( $file )->lines({chomp => 1});

my @lines = path( $file )->lines({chomp => 1});