Select Code to Download

use Data::Dumper;
$Data::Dumper::Deepcopy = 1; # add this line

#!perl
use strict;
...
  }
  print Dumper \%data;
}