Select Code to Download

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

Element         Unsorted        Sorted
-------         --------        ------
...
   27               42             72
   28               50             91
   29               4              94