Parsing out uniques

[diamondsandperls]

My unless statement toward the bottom of the code simply is not working any help would be appreciated.

My goal is to only process a given src address once and not again I do not want to print this line again.

use strict;
use warnings;
use Cwd;
use LWP::UserAgent;
use DateTime;
use File::Slurp;

print "Type the malicious IP: ";
my $IP = <>;
chomp $IP;


#calculating times and dates
my $dt_now = DateTime->now;

$dt_now->subtract( hours => 5 );

my $now_Hour = sprintf("%02d",$dt_now->hour_12());
my $now_Year = $dt_now->year();
my $now_Month = sprintf("%02d",$dt_now->month());
my $now_Day = sprintf("%02d",$dt_now->day());
my $now_Min = sprintf("%02d",$dt_now->minute());
my $am_pm = $dt_now->am_or_pm();

my $oldSSO = qx{whoami};
chomp $oldSSO;
my ($sso) = $oldSSO =~ /.*(\w{2}\d{5})/;

my $ua = new LWP::UserAgent;
my $response = $ua->get("http://referencedatasite/$sso");
my $content = $response->content;

my ($newcontent) = $content =~ /<geid>(\d+)/;



my @textfiles = <*.txt *.log>;
my $input_file;
my $input_fh;
my $src;
my $dst;
my @srcs;
my %seen;
 

my $output_file = "simon.csv";
    
    open(my $output_fh, '>', $output_file)
        or die "Failed to open $output_file - $!";    
        print {$output_fh} "uploadfiles,submitter,description,SIP,DIP,
+Date_occurred_detected,Time_occurred_detected,Report_Severity,Inciden
+t_Type_Details\n";
    close $output_fh;

foreach my $textfile (@textfiles) {
    if ($textfile =~ /(\d+.\d+.\d+.\d+)/) {
    
    my ($ipaddy) = $textfile =~ /(\d+.\d+.\d+.\d+)/;
    
    print "Processing $textfile\n";
        
        my @lines = read_file( $textfile ) ;
            
        open($output_fh, '>>', $output_file)
            or die "Failed to open $output_file - $!";
        
            
        foreach my $line (@lines) {
        
        ($src) = $line =~ /\d{4}-\d+-\d+\s\d{2}:\d{2}:\d{2}\s\d+\s(\d+
+.\d+.\d+.\d+)/;
        
        %seen = ();
        unless ($seen{$src}++) {
        
        if ($line =~ $IP) {
                    print {$output_fh} "$src.zip,$newcontent,Malicious
+ activity found when mining proxylog data,$src,";
                    ($dst) = $line =~ /SG-HTTP-Service (\d+.\d+.\d+.\d
++)/g;
                    print {$output_fh} "$dst,$now_Month/$now_Day/$now_
+Year,$now_Hour:$now_Min $am_pm,3,24\n";
                    }
                }    
            }
        }
    }