# Subroutines
sub myprintf {
    my (@args) = @_;
    printf "TFD> %s\n", Dumper(\@args);
}

# Main program
my $mark;
foreach my $user (sort keys %$pusers) {
    my $flag = $pusers->{$user};

    $mark = $flag? '*': ' ';
    myprintf "%10.10s  %s\n", $user, $mark x 8;

    myprintf "%10.10s  %s\n", $user, ($flag? '*': ' ') x 8;
}