#!/usr/bin/perl -w

# Strict
use strict;
use warnings;

# Libs
use Data::Dumper;

# User-defined
my $pusers = {
    jack   => 1,
    jill   => 0,
    tom    => 1,
    dick   => 0,
    harry  => 0,
    thelma => 0,
    louise => 1,
};

# Main program
my $mark;
foreach my $user (sort keys %$pusers) {
    my $flag = $pusers->{$user};
    printf "%10.10s  %s\n", $user, ($flag? '*': ' ') x 8;
}