Select Code to Download

#!/usr/bin/perl
use strict;
...

print Dumper \@a;
print Dumper \@b;

@b is not Empty
$VAR1 = [];
$VAR1 = [
          undef
        ];