#**************************************************************************/
use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
$ND::TEMPLATE->param(TITLE => 'Top100 ');
$planet{Relationship} = $relationship;
$planet{isHC} = 1;
}
+ $i++;
$planet{ODD} = $i % 2;
push @planets,\%planet;
- $i++;
}
$BODY->param(Planets => \@planets);