"...I didn't understand from here..."

I guess it's just because some of the elder fellow monks are a lazy bunch.

Consider this untested snippet or sketch - as you like:

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;
use feature qw (say);

my %HoA = (
    bar => ["13 : //comment thirteen"],
    foo => [ "12 : //comment twelve ", "5  : //comment five" ],
);

dd \%HoA;

say qq(\n--\n);

# like in "Perl Programming" AKA "Camel Book" chapter 9...
for my $key ( keys %HoA ) {
    say qq($key: );
    for my $item ( 0 .. $#{ $HoA{$key} } ) {
        say qq( $item = $HoA{$key}[$item]);
    }
    print qq(\n);
}

__END__
[download]

Best regards, Karl

... some of the elder fellow monks are a lazy bunch.

Elderly, very lazy, and growing grouchier by the minute :)

---

Give a man a fish:  <%-{-{-{-<

"...growing grouchier..."

Like me. See also.

Best...Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

the keyword "say" isn't working for me

say should be ok with use feature 'say'; on any version of Perl from v5.10 onward, you can check your version of perl by running perl -v. If you have an older version of Perl see print.