my ($a, $b, $c);

##</code><code>##

  my ($a, $b, $c) = (0, 1, 2);

##</code><code>##

  my ($a, $b) = @_;

##</code><code>##

for (1 .. $a_whole_lot)
{
  my ($key, $value) = returnsAnArray ();
}

##</code><code>##

  codethatUsesFoo (getValue()) for 1 .. $a_huge_value;