for my $i (0..$#array) {
    print defined $array[$i] ? "$array[$i]\n" : "\n";
}