You could use the Data::Dumper module.

use Data::Dumper;
...

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

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

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

And check for variable with 'undef' value...