Help for this page

Select Code to Download

Select or download this
```
qw{
  1.01
  1.3
  1.02
  1.2
}
```

Select or download this

sub dict_sort {
  my @unsorted = @_;
...
  map [ $_, [ split /(\d+)/ ] ], @unsorted;
  return @sorted;
}