Select Code to Download

$VAR1 = {
          'test1' => [
...
                       $VAR1->{'test1'}[0]
                     ]
        };

#!/usr/bin/perl
use strict;
...
print Dumper($VAR1);

exit;

$VAR1 = {
          'test1' => [
...
                       undef
                     ]
        };