foreach my $file (@files) {
        #dateiname.20070117.001124.log

       if( my @info = $file =~ m/(.*)\.(\d{4})(\d{2})(\d{2})\.(\d{2})(\d{2})(\d{2})\.log/ ){
           
           my %subhash = ();
           @subhash{ qw/name year month day hour minute second/ } = @info;

           my $key = 'end';

           if ( $info[0] ne $oldname )
           {
               $key = 'begin';
           }

           $dif_hash{ $info[0] } = {
                   $key => { %subhash }
           };

           $oldname = $1;

       }

}