## And strip out the combined total and add "Age end"
my @trimmed = map{
    s[(^\d+\s+)[\d\.]+\s+][$1\t$1];
    $_;
} @sorted;