my @a = ( 1 .. 4, undef, 6 .. 10 );

while (@a) {
  my $x = shift @a;
  say defined $x ? $x : 'undef';
}