Unnamed

#! perl/bin/perl.exe
use strict;
use warnings;
use List::MoreUtils qw(each_array);

my @colors = ('yellow','blue','white','brown','grey',
);

#my @shuffle = shuffle(@colors);

my $ea = each_array(@colors);

#my $shuffle = $shuffle[rand @shuffle];

my %numbers = (
'one'=>'low',
'two'=>'medium',
'three'=> 'high',
'four' => 'too high',
'five' => 'warning',
'six' => 'dangerous',
'seven' => 'toxic',
);
my $colors;
my $numbers;

while((my $key, my $value) = each(%numbers)){
$colors = $ea->();
#print "$numbers $shuffle[rand @shuffle]"."\n";
print "$key $colors"."\n";


}