my( $age90line ) = grep{ m[90\s+and\s+over] } @lines;
$age90line = join "\t", $age90line =~ m[(90\s+and\s+over)\s+\S+\s+(\S+)\s+(\S+)];