my @x = map { return $_; } (1,2,3);
print "(@x)\n";