my @sorted = sort { 
    (split /\./, $a)[1] cmp (split /\./, $b)[1]
    } @LogAnalyser::LogFileList;