use Perl6::Junction qw/one/;
@all_addr = grep { $_ ne one(@to_del) } @all_addr;