sub concat {

    map { length($_) < 8 ? {$_=$_."\\t";$_.=$_;return $_;}:{$_.=$_;return $_;}@_;

}