my $file = "junk.txt";
open FH, '<', "$file";
my @lines;
while (<FH>) {
    push (@lines, $_);
}
close FH or die "Cannot close $file: $!";

my @dude;
my $count= @lines + 1;
for(my $k = 0; $k<$count; $k++){

open FILE, '<', "@lines[k]" or die $!;


        

        while (my $line = <FILE>) {

        my ($ip) = $line =~ /(\d+\.\d+\.\d+\.\d+)/;
               push(@dude,$ip);
        

}


}