Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print"   $sorted[$z]\n";
  }
}

Element    Unsorted  Sorted
-------    --------  ------
...
   27       46        96
   28       23        97
   29       47        99