#use strict;
#use warnings;

open FILE, '<', "dns.txt" or die $!;

my @dude;


while (my $line = <FILE>) {

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





my $num = @dude + 1;

for(my $o = 0; $o<$num; $o++){
        system ("ssh a.AS1 traceroute @dude[$0] > file"+"$0.txt ");

}