#!/usr/bin/perl
# your code goes here
use strict;
use warnings;
my @dates = ( '2013-Dec', '2014-May', '1992-July', '2014-Jan' );
my @sorted_dates = sort { (split /\-/, $a)[0] <=> (split /\-/, $b)[0] || } @dates;
print "Latest date is ".$sorted_dates[-1]. " index is $#sorted_dates";
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7Cm15IEBkYXRlcyA9ICggJzIwMTMtRGVjJywgJzIwMTQtTWF5JywgJzE5OTItSnVseScsICcyMDE0LUphbicgKTsKbXkgQHNvcnRlZF9kYXRlcyA9IHNvcnQgeyAoc3BsaXQgL1wtLywgJGEpWzBdIDw9PiAoc3BsaXQgL1wtLywgJGIpWzBdIHx8CgkJCQkJCSAgKHNwbGl0IC9cLS8sICRhKVsxXSBjbXAgKHNwbGl0IC9cLS8sICRiKVsxXSAKCQkJCQkJfSBAZGF0ZXM7CnByaW50ICJMYXRlc3QgZGF0ZSBpcyAiLiRzb3J0ZWRfZGF0ZXNbLTFdLiAiIGluZGV4IGlzICQjc29ydGVkX2RhdGVzIjsK