my @str  = map{ (split ' ', $_, 2)[0] } @{$tpl} ;