perl -MO=Deparse -F"\s+" -lane "$sec?(push $h{$F[0]},@F[2,4]):($h{$F[3]}=[@F[0..2]]);$sec++ if eof;END{print
map{qq($_ = @{$h{$_}}\n)}sort keys %h}"    mergedhash01.txt mergedhash02.txt

BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our(@F) = split(/\s+/, $_, 0);
    $sec ? push($h{$F[0]}, @F[2, 4]) : ($h{$F[3]} = [@F[0..2]]);
    ++$sec if eof;
    sub END {
        print map({"$_ = @{$h{$_};}\n";} sort(keys %h));
    }
    ;
}
-e syntax OK