Help for this page

Select Code to Download

Select or download this

require 5.010; #<- from your previous post
use strict;
...
my @z = sort{ $a <=> $b} @x;
my $a = join(q{//}, @z);
print qq{$a\n};

Select or download this
```
a//b
a//b
```