use Net::IP::GenericMatch;
my $csv_line = "124.353.54.25,8**.32*.47.**";
my %IP; tie %IP, "Net::IP::GenericMatch", $csv_line;
print "[" . $IP{124.353.54.25} . "]\n"; # schreibt 1
print "[" . $IP{834.323.47.12} . "]\n"; # schreibt 2
print "[" . $IP{124.353.54.2522} . "]\n"; # warnung, da undefiniert
untie %IP;