#!/usr/bin/perl
user strict;

my @dates = ('10/02/2004', '02/01/2004', '01/02/2004', '01/06/2004', '01/02/2005', '01/12/2004', '08/18/2010');

my @ordered = sort { &compare } @dates;

sub compare {
$a =~ /(\d{2})\/(\d{2})\/(\d{4})/;
$c = $3 . $1 . $2;

$b =~ /(\d{2})\/(\d{2})\/(\d{4})/;
$c = $3 . $1 . $2;

$c <=> $d;
}
print "@ordered\n";