my ($var1, $var2, $var3, $var4); $var1 = something1 ; $var2 = something2 ; $var3 = something3 ; $var4 = something4 ;