Select Code to Download

use strict;
use warnings;
...
   @list;

print qq{$_\n} for @sorted;

arianne[75]
arianne[2763]
...
erez[1]
erez[10]
erez[11]