my @arraylist = sort {$myarray[$a] cmp $myarray[$b]} 0..$#myarray;
  for $listitem (@arraylist) {
    print $myarray[$listitem];
  }