open SOURCETNS, '<', "/home/$User/Work/PROJ/$sourceTnsFileName" or die "Cannot open '/home/$User/Work/PROJ/$sourceTnsFileName' because: $!";

while ( my $record = <SOURCETNS> ) {
    push @sourceDBHostsFromTnsEntry, $record =~ /HOST=(\S+-\S+)/g;
    push @sourceDBPortsFromTnsEntry, $record =~ /PORT=(\d+)/g;
    }
close SOURCETNS;