foreach my $login (sort keys %USERS) {
    print NEWFILE join(':', $login, @{$USERS{$login}}), "\n";
}