#! perl -slw
use strict;

my @lines = <DATA>;
## Split lines that fit the two column pattern into two
my @data = map{ m[(^\d+\s+(?:[\d\.]+\s+){3})(.+$)] } @lines;

## Remove any lines that don't fit the pattern
my @filtered = grep{ m[^\d+\s] } @data;

## Sort the lines by age
my @sorted = sort { 
    local $^W; ## Ignoring non-numeric warnings
    $a <=> $b
} @filtered;

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

print "Age\tMale\tFemale";
printf for @trimmed;