close FILE;#dont forget to close your file

for(my $i=0;$i<scalar(@dude);$i++){
   system("ssh a.AS1 tracerout $dude[$i] > file $i.txt"); 
}