#!/usr/local/bin/perl
# Jaime Prilusky, 2009

  @org =  qw ( 10 3 6 1.5 a A a2 b c dE Z sw aq qa 4 2 );

  @ary = @org;                                   print "none      @ary\n";
  @ary = sort @org;                              print "default   @ary\n";
  @ary = sort {$a cmp $b} @org;                  print "cmp       @ary\n";
  @ary = sort {$a <=> $b} @org;                  print "<=>       @ary\n";
  @ary = sort {($a cmp $b) or ($a <=> $b)} @org; print "cmp <=>   @ary\n";
  @ary = sort {($a <=> $b) or ($a cmp $b)} @org; print "<=> cmp   @ary\n";