Select Code to Download

use strict;
use warnings;
...

print join (' ', grep $_, @array)."\n";
print join (' ', grep { defined } @array)."\n";

1 2 4 5 8 9
1 2 4 5 0 8 9