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\";

}