4.6. Array elements (create menu)

Example 4-5. examples/arrays/color_menu.p6

#!/usr/bin/perl6

my @colors = <Blue Yellow Brown White>;

for 1..@colors.elems -> $i {
    say "$i) @colors[$i-1]";
}

print "Please select a number: ";
my $input = readline;
say "You selected {@colors[$input-1]}";