use warnings;
use strict;

my @dates = ('20130601', '20130401', '20130501');

print join ' ' => map{$_->[0]}
              sort{$a->[1] <=> $b->[1]}
              map{/.{4}(.{2})/;[$_,$1]} @dates;