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