use strict;
use warnings;

my $path_to_infile= "<set path here>";
my @workarray;

open (IN, "< $path_to_infile") or die $!;

while (<IN>) {
    chomp;
    push (@workarray, split("\t", $_));
}

print "Value is : $workarray[0]\n";
print "Value is : $workarray[1]\n";
print "Value is : $workarray[2]\n";
print "Value is : $workarray[3]\n";
print "Value is : $workarray[4]\n";
print "Value is : $workarray[5]\n";