my ($str1, $str2, $str3) = map {"string" . $_} @_;