or download this
my $var = something; # declare then assign in scalar context
my ($var) = something; # declare then assign in list context
...
$var2 = something2 ; # assign in scalar context
$var3 = something3 ; # assign in scalar context
$var4 = something4 ; # assign in scalar context