BEGIN {
    if( eval "use fakemodule; 1;") {
        print STDERR "Loaded fakemodule";
    }
    else {
        print STDERR "Couldn't load fakemodule.";
    }
}

##</code><code>##

first(1,2,3);

sub first {
  &second;
}

sub second {
    print for @_;
}

# Output is 123

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

sub pro(\@) {
    print Dumper \@_;
}

my @list = (1,2,3);
pro(@list);
&pro(@list);

##</code><code>##

$VAR1 = [
          [
            1,
            2,
            3
          ]
        ];
$VAR1 = [
          1,
          2,
          3
        ];