use warnings;
use strict 'refs';

my %a = ( b => 'a',
          z => 'c',
          n => 'o' );

my @l = qw/o r t n k l e m/;

my $r = sprintf('%x', 15);  # $r = 'f'.

print "\U$r\E" . "$l[1]$a{'b'}"; # prints 'Fra'

foreach $_ (3 .. 4) {
    print "$l[$_]";  # prints 'nk'
}

# prints ', Just Another Ca'
print ', Jus' . "$l[2]" . ' ' . 
    "\u$a{'b'}$l[3]$l[0]$l[2]h$l[6]$l[1] \u$a{'z'}$a{'b'}";


for ($r = 7; $r > 4; --$r) {
    print "$l[$r]"; # prints 'mel'
}

# prints 'Kook'
print " \u$l[4]$a{'n'}$a{'n'}$l[4]";

##</code><code>##

%a=(qw/b a z c n o/);@l=qw/o r t n k l e m/;$r=sprintf('%x',15);
print"\U$r\E$l[1]$a{b}";print$l[$_]for 3..4;print
", Jus$l[2] \u$a{b}$l[3]$l[0]$l[2]h$l[6]$l[1] \u$a{z}$a{b}";
for($r=7;$r>4;--$r){print$l[$r]}print" \u$l[4]$a{n}$a{n}$l[4]"