#! /usr/bin/perl -W
use strict;
use 5.010;

my %accounts = (tom => "BigApple");
my %types = (tom => "admin");
my $choice;
my ($userID, $passwd, $type);
my @userID = $userID;

my $menu = <<MENU;

         System Administration Tasks

1- Create a new account
2- Delete an account
3- Change an account password
4- List users in alphabetical order 
5- Exit the system

MENU

while (1) {
  print $menu, "\n";
  print "Make your choice: ";
  chomp($choice = <STDIN>);

  if ($choice == 1){
 
	print "Enter your userID: ";
	chomp ($userID = <STDIN>);
	print "Enter your password: ";
	chomp ($passwd = <STDIN>);
      
	if (exists $accounts{$userID}) {
		print "Duplicate user id, try again later"
	}else {
		print "Enter the account type, admin (or regular): ";
		chomp ($type = <STDIN>);
	        $accounts{$userID} = $passwd;
	        $types{$userID} = $type;
	        print "Account was successfully created \n";
	}
        
	} elsif ($choice == 4){
		
        # sort the users in descending order
                foreach $userID (reverse sort keys %accounts) {
			
        # print out login names 3 per line
	        @keys = keys %accounts;
		for (my $counter = 1; $counter <= @keys; $counter++)
	{
		print "$userID\t";
		print "\n" if $counter % 3 == 0;
	}
	}
	
	} else {
		print "Invalid choice, TRY AGAIN!\n";
	}
}