$A= concat( 'ab', 'cd',...)

print $A;

sub concat{?????}


The program output should be: abcd.....