Merge pull request #931 from andemark/branch-for-challenge-034

Aesthetic edits to ch-1.pl

1 files changed, 6 insertions, 10 deletions

diff --git a/challenge-034/mark-anderson/perl5/ch-1.pl b/challenge-034/mark-anderson/perl5/ch-1.pl
index c5d8a41bda..205b0db7fe 100644
--- a/challenge-034/mark-anderson/perl5/ch-1.pl
+++ b/challenge-034/mark-anderson/perl5/ch-1.pl
@@ -1,15 +1,11 @@
 #!/usr/bin/env perl
-
 use Modern::Perl '2018';
 
-my @numbers = (0 .. 25);
-
-my @letters = ('a' .. 'z');
-
-my %number;
-
-@number{@letters} = @numbers;
+my @indices = (0 .. 25);
+my @letters = ('A' .. 'Z');
 
-say "array: ", join ", ", @letters[0, 4, 7];
+my %index;
+@index{@letters} = @indices;
 
-say "hash:  ", join ", ", @number{'a', 'e', 'h'};
+say "array: ", @letters[9, 0, 15, 7];
+say "hash:  ", join ", ", @index{'J', 'A', 'P', 'H'};