Select Code to Download

use strict;
use warnings;
...
    print "$_: " . Dumper (\@sorted);
}
exit 0;

1: $VAR1 = [
          '5.71428571428571',
...
          '5',
          '5.71428571428571'
        ];