c:\@Work\Perl\monks>perl -wMstrict -le
"my ($kilo, $papa, $quebec, $romeo, $delta) = ('a' .. 'z')[ 10, 15 .. 17, 3 ];
 print qq{'$delta' '$kilo' '$papa' '$quebec' '$romeo'};
"
'd' 'k' 'p' 'q' 'r'