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

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

print "@numbers\n";

##</code><code>##

print "@sorted\n";