@lines = map{ 
        substr $_, 8 
    } sort @lines;