%hash = ( a => 1, b => 2, c => 3 );
$s = %hash;        # scalar context: hash stats
# vs.
my @a = %hash;     # list context: key/value pairs
$t = @a;           # array in scalar context: number of items
printf "\$s is \$t: %s\n\$s: %s\n\$t: %s\n", $s eq $t ? 'yes' : 'no', $s, $t;