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