if (!grep (/.*$uname.*/, @{$machinearray{$machine}})) {
	${$machinearray{$machine}}[$#{machinearray{$machine}}] = $pwline;
}