my @x = map {$_*2} 1..3;
# --becomes-->
use English;
my @y = map { $ARG * 2 } 1..3;

##</code><code>##

my @x = map {sprintf("%02x",$_)} 45..48;
# --becomes-->
my @y;
for (45..48) {
    push @y, sprintf("%02x",$_);
}
# --becomes-->
my @z;
for my $val ( 45 .. 48 ) {
    push @z, sprintf "%02x", $val;
}

##</code><code>##

use Data::Dump;
dd( unpack "CCCCCC", "\xab\xcd\x00\x1d\x94\x56" );
__END__
(171, 205, 0, 29, 148, 86)

##</code><code>##

my  $q  = localtime(time);
my ($r) = localtime(time);

sub whatcontext {
    print wantarray ? "list" :
        defined wantarray ? "scalar" : "void", "\n";
    return;
}

my  $s  = whatcontext;
my ($t) = whatcontext;
whatcontext;

__END__

scalar
list
void