#!/usr/bin/perl

# Read header
while(<>) {
    last if /counts/i;
}

# Print column header
@fields = split;
print "$fields[3] $fields[$#fields]\n";

# Print data
while(<>) {
    @vals = split;
    print "$vals[3] $vals[$#vals]\n";
}