$ perl -wMstrict -le 'sub x {} my $h={50=>[1]}; x(@{$h->{100}})'

$ perl -wMstrict -le 'sub x ($) {} my $h={50=>[1]}; x(@{$h->{100}})'