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