use Array::Autojoin;
my $str=mkarray(@arr);
print "$str";