minor perl statistics script changes