data	name	aliasname,	alsoknown	class	type

##</code><code>##

data
name
aliasname,
alsoknown
class
type
##</code><code>##

what i want is 
data
name
aliasname, alsoknown
class
type
##</code><code>##

#!/usr/bin/perl
use strict;
my $var;

open(FH,"sample.txt")or die("can't open file:$!");
while($var=<FH>)
{
    my @vareach=split("\t",$var);
    for my $each(@vareach)
    {
        print "$each\n";
    }
}