if ($data=~/(\D{3}) *?(\d{1,2}) *?(\d{4})/) {
    $month = $datehash{$1};
    $day=$2;
    if ($day=~/\d{1}/) {
        $day='0'.$day;
    } 
    $year=$3;
    $sortingdate=join '', $year, $month, $day;
}