my $scalar = 'abc';

print "$scalar\n";

##</code><code>##

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

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

##</code><code>##

my %hash = ( bob => 'dog',
             sue => 'cat',
             jim => 'parrot',);

for (keys(%hash)) {
  print "$_ has a $hash{$_}.\n";
}