#!/usr/bin/perl 

$upload = "/var/tmp/work/upload"; 
$work = "/var/tmp/work/"; 
$input3 = "$upload/domain.csv"; 

system ("dos2unix $input3"); 

open (IN,"$input3"); 
open (OUT,">>$work/local.rules"); 
while (<IN>) { 
         chomp();

         if ($_ =~ /^.+\.([A-Za-z0-9-_]+\.[A-Za-z]{2,})$/){ 
                 $domain = $1; 
                 %seen = ();
                 @unique = grep { ! $seen{ $domain }++ } @array; 
                 print "@unique\n"; 
	}
}