for ( my $chunk = 0; $chunk < @fred; $chunk += 20 )
{
    print "var $varname $chunk [\n";
    print "$fred[$chunk]";
    for my $ofs ( 1 .. 19 )
    {
        print ",$fred[$chunk+$ofs]";
    }
    print "]\n";
}