use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);
 
sub aaa($)
 {my ($a) = @_;
  $a->{a} = 1;
  say STDERR dump($a);
 }

aaa({});
aaa(undef);
aaa(0);