substr $_, 0, 8, '' for @data;