サカナくんのニュースを見ながらなんとなく書いてみたら動いたので貼り付けｗ

use strict;
use warnings;

my @array = qw(a b c d e);
my %hash = ( @array => [] );


print defined($hash{'e'}) ? ref($hash{'e'}) . "\n" : "not defined\n";
print defined($hash{'f'}) ? ref($hash{'f'}) . "\n" : "not defined\n";