Address1=
Address2=
Address3=


Port numbers are generated by pulling them out of another file



my $source = "somefile.txt";

my @list;
open(IN, "<$source") or die ("Unable to open $source: $!\n");
while(my $line = <IN>) {
                        chomp ($line);
                        $_ = $line;
                        my $line2 = (split)[1];
                        chomp ($line2);
                        my @words = split(/tcp/, $line2);
                        my $word = $words[0];
                        chop $word;
                        #print "$word\n";
                        push @list, $word;

                }
                close IN or die "error closing file : $!";

print "$list[0]\n";
print "$list[1]\n";
print "$list[2]\n";


##</code><code>##

Address1=$list[0]
Address2=$list[1]
Address3=$list[2]