Select Code to Download

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

for ( my $chunk = 0; $chunk < @fred; $chunk += 20 )
{
...
    }
    print "]\n";
}

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

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