my $intput = join '', map { "$_" } @_;