Select Code to Download

$VAR1 = [
          [
            100,
...
            1212
          ]
        ];

$VAR1 = [
          [
...
            '1210'
          ]
        ];

sub remove_x99 {
  my @dead_list = shift;
...
  print Dumper\@result;

}

$VAR1 = {
          'ARRAY(0x1a56440)' => undef
        };