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

# here only maxstr is needed, just showing them all...
use List::Util qw(first max maxstr min minstr reduce shuffle sum);

my @dates = ( '2011-03-12', '2011-04-09', '2010-12-31', '2010-12-30');

print maxstr(@dates),"\n";  #2011-04-09