use Data::Dumper;
...

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

$a = 1;
$b = 2;
$d = 4;

print Dumper([ $a, $b, $c, $d ]);