while (<STDIN>) {  
    chomp;  
     
    ######## 
 
    my @pieces = split /\t/; 
 
    for (@pieces) { 
        say; 
    } 
 
    say '*' x 20; 
 
    ######## 
 
    #my $year = (split /\t/)[3];  
    #$years{$year}++;  
}