challenge-034/mark-anderson/perl5/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/env perl
use Modern::Perl '2018';

my @indices = (0 .. 25);
my @letters = ('A' .. 'Z');

my %index;
@index{@letters} = @indices;

say "array: ", @letters[9, 0, 15, 7];
say "hash:  ", join ", ", @index{'J', 'A', 'P', 'H'};