$c = 0;
$g = 0;

foreach $w (@fred)
   {
   if ($g == 0)
      {
        print "\$g = $g and \$c = $c\n";
        @fred1 = ($varname,$c);
        $temp_var1 = join("", @fred1);
        print "var $temp_var1 [";
      }
   if ($g == 20)
      {  
        print "$w]\n";
        print "\$c = $c and \$g = $g\n";
        $c++;
        @fred1 = ($varname,$c);
        $g = 0;
        print "\$g = $g";
      }
   if ($w =~ @fred[-1])
      {
        print "$w]\n";
      }
   else
      {
        print "$w,";
        $g++;
      }
   }