open (SOURCETNS, "/home/$User/Work/PROJ/$sourceTnsFileName");
		while ($record = <SOURCETNS>)
		{
			chomp ($record);
			if ($record =~ /[\w]*\-[\w]*/)
			{
				push (@sourceDBHostsFromTnsEntry, $&);
				
			}
			if ($record =~ /[\d]*/)
			{
				push (@sourceDBPortsFromTnsEntry, $&);
				
			}
		}
		close(SOURCETNS);