return sort {$a <=> $b} @messages;