#!/usr/bin/perl -w
use strict;

my ($a, $b);

# Bad bad bad thing !
($a, $b) = ( "5","6" );

sub mySort {
  return ($a||shift) cmp ($b||shift);
};

print "\n1: ", mySort( "1","2" );
print "\n2: ", join " ", sort qw!d b c a!;
print "\n3: ", mySort( "8","7" ), "\n";

print "\n\$a: $a, \$b : $b\n";