Select Code to Download

# Declare an array and print out two elements
my (@a) = qw( foo bar baz buz );
...
  'baz' => 'buz'
);
print join(", ", $d{'foo'}, $d{'baz'}), "\n";