$ perl -e'print join( ", ", sort {$a<=>$b || $a cmp $b} qw/7 000 07 00 007 0/, "0 but true"), $/'