Select Code to Download

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

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

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

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

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