if ($w eq $fred[-1])

##</code><code>##

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";
}

##</code><code>##

for ( my $chunk = 0; $chunk < @fred; $chunk += 20 )
{
    local $" = ',';
    print "var $varname $chunk [@{[ map { $fred[ $chunk+$_] || () } 0 .. 19 ]}]\n";
}

##</code><code>##

    print "var $varname ", $chunk/20, " . . .