Select Code to Download

use Data::Dumper;

sub test1 (\@@) { print Dumper \@_; }
...

test1( @array, $value);
test2( @array, $value);

$VAR1 = [
          [
            1,
...
          3,
          4
        ];