my $ctr = 0; for ($ctr = 0; $ctr < 601; $ctr++) { $indexs[$ctr] = "-$ctr-"; } $ctr = 0; print ""; while ($ctr < 201) { print "\n"; $ctr++; } print "

"; if ($indexs[$ctr]) { print $indexs[$ctr]; ### first col current row ($ctr) } else { print ' '; } print '

'; if (($indexs[$ctr + 201]) and ($ctr+201 != 401)) { print $indexs[$ctr + 201]; ### second col current row ($ctr) } else { print ' '; } print "

"; if ($indexs[$ctr + 401]) { print $indexs[$ctr + 401]; ### third col current row ($ctr) } else { print ' '; } print "

\n";