Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
        return \@a;
    }
}

Select or download this

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