Select Code to Download

while (<DUMP_ACCT_NO>) {
    chomp;
    my ($id, $accno) = split /\|/, $_;
    push @{$hashList{$guid}}, $accno;
}

while(<DUMP_ID>){
    chomp;
...
        }
    }
}