Select Code to Download

@numbers = qw( 1/23 3/45 65/0 6/01 0/100 123/4568 );

@sorted = sort { (split('/', $a))[0]
...
          } @numbers;

print "@numbers\n";