Select Code to Download

use Data::Dumper;

...
  }

 print Dumper \@c_array;

$VAR1 = [
          'apple 2',
...
          'orange 5',
          'pear 3'
        ];