use warnings;
use strict;
use 5.010;

my @some_array = (1, 2, undef, 4, 5);

for (my $ii = 0; $ii < scalar(@some_array); $ii++) {
    print "Value at position $ii: @{[$some_array[$ii] // '--undef--']}\n";
}