/^(.+?)\.(.+?)\.IP/ and push @{$hash1{$2}}, $1 for @array;