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

##</code><code>##

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

##</code><code>##

push @$all, @$accounts;