Help for this page
my %seq = ('1035-2341', '1', '1035-2347', '1', '1035-65', '1', '1035-4 +6', '1'); foreach (sort {length $a <=> length $b || $a cmp $b} keys %seq) { print $_, "\n"; }
1035-46 1035-65 1035-2341 1035-2347
www.com | www.net | www.org
No recent polls found
