#!/usr/bin/env perl
use Modern::Perl;
use Data::Dumper;

my @data = <DATA>;

@data =
    map { $_->[0] }
    sort { $b->[1][0] <=> $a->[1][0] or $a->[1][1] <=> $b->[1][1] }
    map { [ $_, [substr( $_, 0, 8 ), substr( $_, 8)]] }
    @data;

say @data;

__DATA__
20090405022300
20080405022600
20090405022900
20080405023500
20050405005000
20080405022500
20090405022500
20020405081200
20010405000000
20090405022100