$_ = substr($_, 0, 24) for @array;