Select Code to Download

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

    my %machines = (
        machine1 => {
...
            user3 => 'pwline3',
        },
    );

    if (!exists $machines{$machine}{$uname}) {
        ## User doesn't exist. Add him/her.
        $machines{$machine}{$uname} = $pwline;
    }