my $x = 0;
  while ($printrows[0][$x]) {
                print "First: $rows[0][$x]\n";
                $x++;
                print "Second: $rows[0][$x]\n";
                $x++;
        }

##</code><code>##

my $x = 0;
  while ($printrows[$x][0]) {
                print "First: $rows[$x][0]\n";
                print "Second: $rows[$x][1]\n";
        }