sub sortLinesGRT2
{
    my $href = shift;
    return [
        map {
            unpack 'x[d]a*', $_
        } sort map {
            /(\d{2}):(\d{2}):(\d{2}\.\d{3})/o;
            scalar( reverse pack ('d', ( $1*60 + $2 )*60 + $3 ) ) . $_
        } @$href
    ];
}