my @i = sort { 
            &Date_Cmp(&ParseDate($a),&ParseDate($b)) 
        } @dates;