{
    my $X = tied %maillist;
    my $key = $X->FIRSTKEY;
    while(defined $key ){
         next unless $key =~ /^rubber/;
         ...

         $key = $X->NEXTKEY($key);
    }
}