use strict;
use warnings;
use diagnostics;

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

my @a = @{$href->{list}}; # fails here
foreach my $i (@a) {
    print "$i\n";
}