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]";