#!/usr/local/bin/perl -w

# Note: this script is designed to deal with tab-separated
#       files; it ignores the first row and takes the
#       second column of every other row and prints it
#       as a single column

$row = 0;
while(<>) {

    if($row != 0) {

	chomp;

	@fields = split(/\t/, $_);

	print $fields[1], "\n";

    }
 
    $row++;

}
