Select Code to Download

my $var = something;    #scalar context
my ($var) = something;  #list context

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


...
$var2 = something2 ;
$var3 = something3 ;
$var4 = something4 ;