Select Code to Download

my $scalar = 'abc';

print "$scalar\n";

my @array = ('abc', 123, 'dog');

for (@array) {
  print "$_\n";
}

my %hash = ( bob => 'dog',
             sue => 'cat',
...
for (keys(%hash)) {
  print "$_ has a $hash{$_}.\n";
}