Help for this page

Select Code to Download

Select or download this

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";
}

Select or download this
```
1035-46
1035-65
1035-2341
1035-2347
```