Select Code to Download

perl -le '%x=(y=>"a"); $a="Z";print ${$x{y}}'

use strict;
my %hoa = ( foo => [0, 1], bar => [2, 3] );
for ( keys %hoa ) {
   print " $_  contains: @{$hoa{$_}}\n";
}