Select Code to Download

 @rows = map {$q->td( {-align=>'left'},  b("$_ Parish:") ).
                $q->td( {-bgcolor=>"$data"},@{$info{$_}}[$index]).
                $q->td( {-bgcolor=>"$data"},@{$info{$_}}[$index2]).
                $q->td( {-bgcolor=>"$data"},@{$info{$_}}[$index3]) } @
+keys;