$_ = <IN>;
chomp;
my @column = split /\t/;

##</code><code>##

my @data;
while(<IN>) {
    chomp;
    my %row;
    @row{@column} = split /\t/;
    push @data, \%row;
}

##</code><code>##

$row{'sex'} eq 'F' and $row{'body mass index'} > 40 and $row{blood pressure'} > 135

##</code><code>##

push @data, \%row if $row{'sex'} eq 'F' and $row{'body mass index'} > 40 and $row{blood pressure'} > 135;

##</code><code>##

@filtered = grep { $_->{'sex'} eq 'F' and  $_->{'body mass index'} > 40 and $_->{blood pressure'} > 135 } @data;