open (PRV, $private) or die "$!";

while (<PRV>) {
   chomp;
   $_ =~ tr/A-Z/a-z/;
   
    my @array = split(' ', $_);
    my $far = @array[0];
    my $dev = @array[3];
print "$dev is connected to $far\";

}

##</code><code>##

atlanta is connected to 123
atlanta is connected to 456
atlanta is connected to 789
boston is connected to 12
boston is connected to 34
etc.........

##</code><code>##

atlanta is connected to: 123, 456, 789
boston is connected to: 12, 34