my @base_data = map substr($_, 0, length($_) - 4), @data_r;