Help for this page

Select Code to Download


  1. or download this
    ...
my @stuff= (
...
   map "\$${_}_from=$cnt{$_}[0] and \$${_}_to=$cnt{$_}[-1]\n",
      keys %cnt;
...
  2. or download this
    $hi_from=65 and $hi_to=106
$bye_from=12 and $bye_to=53
  3. or download this
    use strict;          # go for it
use warnings;
...
}

print "\n$hi_from, $hi_to \n$bye_from, $bye_to\n"; # control