Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
1090
wibble
1
  2. or download this
    Found 2 of 1
Found 1 of 1090
  3. or download this
    print "Found $faclist{$_} of $_\n"
    for sort {$a <=> $b} grep {/^\d+$/} keys %faclist;