sub sortbyfirst {
   my ($f_a, undef) = split(/\//, $a);
   my ($f_b, undef) = split(/\//, $b);
   return $f_a <=> $f_b;
}

@sorted = sort sortbyfirst @numbers;