Select Code to Download

use strict;
use warnings;
...
    } sort keys %users;

Dump $allusers;

$ARRAY1 = [
            {
...
              user     => 'William'
            }
          ];