Select Code to Download

   $_ = "Priority Kirkgate, PC7588\n";
   @fields = split /,/, $_ ;
   print "PC string from NEW list: >>$fields[1]<<";

use strict;
my %new_pc;
...
for my $pc (keys %new) {
    print "$pc is new\n";
};