ウェイ

test.pl

use strict;
use warnings;

sub hoge {
    my $test = {};
    return {
        hoge => fuga() # ここに,がない
        %{$test},
    }
}
sub fuga {
    +{}
}
use Data::Dumper;
warn Dumper hoge();
__END__
Odd number of elements in anonymous hash at /Users/hisaichi5518/projects/kuwata/test.pl line 7.
$VAR1 = {
          'hoge' => '140683826447000'
        };