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

##</code><code>##

        for my $accno (@{$hashList{$_}})