Help for this page

Select Code to Download


  1. or download this
    $t+=$_,$r{$.}+=$_,$c[$n++%4]+=$_ for((split)[1..4])x/^\s*\d/;print$_.=
+" $r{$.}"
}{print sprintf"       %10d %10d %10d %10d $t",@c[0..3]
  2. or download this
    COUNTY       2001       2002       2003       2004
------     ------     ------     ------     ------
 26005        432        505        547        555 2039
...
 26159        414        434        504        493 1845

             4663       5327       5503       5734 21227