use Hash::Merge; my $merger = Hash::Merge->new(); my $joined_FS = {}; $joined_FS = $merger->merge($joined_FS, $_) for $VAR1, @$VAR2;