Select Code to Download

use strict;                                                           
+          
use warnings;                                                         
+          
...
        "no matches for $cust\n";
    }
}

$ perl /tmp/kk.pl 
Useless use of string in void context at /tmp/kk.pl line 38.
...
customer2 matches:     test@customer2.service
customer4 matches:     test@customer4.service
customer5 matches:     test@customer5.service