use strict; use warnings; print sort {$a <=> $b } 1..6;