print "Age start\tAge end\tMale\tFemale";
printf "%s\t\t%s\t\t%s\t\t%s\n", 
    m[(\S+)\s*(\S+)\s+(\S+)\s+(\S+) 
    for @trimmed, $age90line;