$machinearray{$machine}{$user}++;

##</code><code>##

if (exists $machinearray{$machine}{$user})

##</code><code>##

keys %{$machinearray{$machine}};