use strict;
use Data::Dumper;
my %result;
my ($hash1, $hash2) = &generate_hash;
delete ${$hash2}{2};
#print Dumper(%{$hash1});
#print Dumper(%{$hash2});


foreach my $key (keys %{$hash1}){
    my @Array;
    foreach (0..3){push (@Array, ${${$hash1}{$key}}[$_])}
    if (${$hash2}{$key}){
        foreach (2..3){push (@Array, ${${$hash2}{$key}}[$_])};
    }else{
        foreach (2..3){push (@Array, "")};
    }
#    print Dumper(@Array);
    $result{$key}=\@Array
}#end foreach Addieren
print Dumper(%result);

sub generate_hash(){
    my %test1;
    my %test2;
    foreach (1 .. 3)
    {
        my $date = &generate_date;
        $test1{$_}=[$date, sprintf("%3.0f", $_), &number, &number];
        $test2{$_}=[$date, sprintf("%3.0f", $_), &number, &number];
    }
    return (\%test1,\%test2)
}

sub generate_date{
    my ($year,$month,$day);
    do {$year  = sprintf("%4.0f", rand(2011));}until($year>1900);
    $month = sprintf("%02d", rand(12));
    $day   = sprintf("%02d", rand(31));
    return "$year-$month-$day";
}

sub number {
    return sprintf("%4.0f", rand(4999));
}