push @{ $machinearray{$machine} }, $pwline;