nicholashoule

#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor qw(:constants);
use Data::Printer;

$| = 1; # turn off the buffering of STDOUT

my ($choice, $times, $key, $value, @hash);
my @array = 0..9;