print join "\t\t\t", map {[$_]->[$len] || ""} \my $polea, \my $poleb, \my $polec;
    print "\n";