##
first(1,2,3);
sub first {
&second;
}
sub second {
print for @_;
}
# Output is 123
##
##
use strict;
use warnings;
use Data::Dumper;
sub pro(\@) {
print Dumper \@_;
}
my @list = (1,2,3);
pro(@list);
&pro(@list);
##
##
$VAR1 = [
[
1,
2,
3
]
];
$VAR1 = [
1,
2,
3
];