diff --git a/scripts/perf.sh b/scripts/perf.sh
index 67584175..4b9a9e89 100755
--- a/scripts/perf.sh
+++ b/scripts/perf.sh
@@ -2,12 +2,12 @@ set -e
 f=$(cat $1)
 a=$(echo "$f"|grep "LUA: \["|sed 's/LUA: \[//g;s/].*//;s/ //g'|awk -F',' '{for (i=1; i<=NF; i++) cols[i] = cols[i] $i " "} END {for (i in cols) {gsub(/ $/, "", cols[i]); gsub(/ /, ",", cols[i]); print "{" cols[i] "}"}}')
 for b in $a;do
-  echo "{mean$b,standarddeviation$b,max$b,len$b}"|kalc
+  echo "{mean$b,standarddeviation$b,max$b,percentile($b,99),percentile($b,99.9),len$b}"|kalc
 done
 
 a=$(echo "$f"|grep "LUA: {"|sed 's/LUA: {//g;s/}.*//;s/ //g'|sed 's/,/\n/g'|sort -n)
 for i in $(echo "$a"|sed 's/:.*//g'|uniq);do
   b=$(echo {$(echo "$a"|grep "^$i:"|sed 's/.*://g')}|sed 's/ /,/g')
   echo -ne "$i "
-  echo "{mean$b,standarddeviation$b,max$b,len$b}"|kalc
+  echo "{mean$b,standarddeviation$b,max$b,percentile($b,99),percentile($b,99.9),len$b}"|kalc
 done