#!/usr/bin/perl
use lib "/user/comp/name";
use strict;
use Text::Delimited;

my $file = new Text::Delimited;
$file->delimiter('\t');
$file->open('file.txt');

my @header = $file->fields;

while ( my $row = $file->read ) {
    print $row->{COLUMN1};
}

$file->close;