use autodie;

    my @a = (230000 .. 900000);

    $ENV{BC_LINE_LENGTH} = 1 << 31;

    open my $cld, "|-", "bc";
    local $" = "*";
    print $cld "@a\n";
    close $cld;