my ($a, $b, $c, $d);

##</code><code>##

my $a;
my $b;
my $c;
my $d;