Select Code to Download

  @$accounts = grep { !/44443/ } @$accounts;
# ^
# |
# Here.

@$accounts = grep { $_->{acc} !~ /44443/ } @$accounts;

push @$all, @$accounts;