opendir ( DATAL , "PFAD/logs/" ) ;
foreach my $sfile ( reverse grep(/\.od$/,readdir(DATAL)) ) {

	open(STATS , "< PFAD/logs/$sfile") ;
	while ( my @t = split(/\|/,<STATS>,3) ) {
		$DATA{$t[0]} += $t[1] ;
	} close(STATS) ;
	
	last if ( $i++ == 6 ) ;

} close(DATAL) ;