sub concat {
    my @s = @_;
    for (@s) {
        $_ .= "\t" if 8 > length;
    }
    return join "\t", @s; 
}