Select Code to Download

  my %hash = (one => 1, two => 2);
  print "$hash{one}\n";

  print "@{[ %hash ]}\n";

  print "@{ for (1 .. 2) { print qq(Hi!\n); } [ qq(Bye!\n) ]}";