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";
[download]

Also you don't need @vars, just:

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