my $size = @array;
@array = grep {$_} @array;
unshift @array, (0) x ($size - @array);