use strict;
use warnings;

my @vars = (1,2,3);
my ($str1, $str2, $str3) = map {"string" . $_} @vars;
print $str1, "\n";
print $str2, "\n";
print $str3, "\n";

##</code><code>##

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