my @sorted= map {
        $_->[1]
} sort {
        $a->[0] <=> $b->[0]
} map {
        [substr ($_, 5, 10), $_]
} @array;