#!/usr/bin/perl
use 5.016;
use strict;
use warnings;
# no warnings "all";    # WHY? warnings are to help you get a compilable program

# 1041200

open (OFILE, '>', 'name.tsv') or die "Can't open for output, $!";  # CHECK opens

while (<DATA>) {
	chomp;
	my ($name, $ID, $chromosome, $start_location, $control_type) = split("\t");
	print "$name \n";
    # open (OFILE, '>name.tsv');   # OPENING HERE OVERWRITES PREVIOUS ENTRY EACH TIME THRU
    print OFILE "$name\n";         # HANDLE and LIST WERE REVERSED
}

__DATA__
fred	123	GeeWhiz	00	freak
jack	4321	Whoosh	04	paternalist
sam	9876	imme	27	passive