my $var = something;    # declare then assign in scalar context
my ($var) = something;  # declare then assign in list context

...

my ($var1, $var2, $var3, $var4); # declare


$var1 = something1 ; # assign in scalar context
$var2 = something2 ; # assign in scalar context
$var3 = something3 ; # assign in scalar context
$var4 = something4 ; # assign in scalar context