my @sourceDBHostsFromTnsEntry;
my @sourceDBPortsFromTnsEntry;
open(my $SOURCETNS, "<", "/home/$User/Work/PROJ/$sourceTnsFileName") or die($!);
while((my $record = <$SOURCETNS>)) {
    chomp ($record);
    my @parts = split /\ /, $record;
    foreach my $part (@parts) {
        if($part =~ /HOST=(.*)/o) {
            push @sourceDBHostsFromTnsEntry, $1;
        }
        if($part =~ /PORT=(.*)/o) {
            push @sourceDBPortsFromTnsEntry, $1;
        }
    }
}
close($SOURCETNS);