Re: no output or error received

[ww]

You were close...

Slightly abbreviated; syntax and logic problems fixed... and it works for me.

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

# 1041200

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

while (<DATA>) {
    chomp;
    my ($name, $ID, $chromosome, $start_location, $control_type) = spl
+it("\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