my ($var1, $var2, $var3) = map "Hello", 1..3;