Select Code to Download

use Data::Dumper;

...
#             ^ only want [dd]=dd          ^ split & capture

print Dumper(\@p);

$VAR1 = [
          '[0] = 1',
...
          '[18] = 9',
          '[19] = 10'
        ];