Select Code to Download

use strict ;
use warnings ;
...
    print "3 exists\n" ;
}
print Dumper(\@ar) ;

0 exists
2 exists

$VAR1 = [
          undef,
          undef,
          3
        ];