my (undef, $name, undef, $size) = split /\t/;

##</code><code>##

   my ($id, $name, $effects, $size) = split /\t/;