use strict;
use warnings;
use diagnostics;

my $href = {
    list => undef,
};

foreach my $i (@{$href->{list}}) {
    print "$i\n";
}