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