print "Age start\tAge end\tMale\tFemale";
print for @trimmed, $age90line;