in reply to sorting entires by date
If, as your sample data indicates, your lines are of a consistant fixed format, then a simpler sort using substr would suffice.
my @sorted = sort{ substr( $a, 19 ) cmp substr( $b, 19 ) } <FILE>;
In Section
Seekers of Perl Wisdom