foreach $rec (@CUSTDATA) {

##</code><code>##

      while (my $rec = <>) {