Select Code to Download

my %result= (
          '2005/12/15-01:00' => {
...
                },
        ) ;

my @list ;
push @list, values %$_ for values %result ;
my ($seen) = 
sort {$b<=>$a} map { my @tmp = split " ", $_ ; scalar @tmp } @list  ;
print $seen ;