perl -MData::Dumper -e "$h{a} = sub{print qq(AAA\n)}; $h{alias} = \&{$h{a}}; print Dumper(\%h)"

$VAR1 = {
          'a' => sub { "DUMMY" },
          'alias' => $VAR1->{'a'}
        };