# The spaces aren't really necessary.
my $months = 
"jan feb mar apr may jun jul aug sep oct nov dec";

my @sorted = sort{
	index( $months, lc(substr($a,0,3)), 0)
	<=>
	index( $months, lc(substr($b,0,3)), 0)
	|| $a cmp $b
	} @files;