reference-and-dereference-on-perl.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @array = qw/1 2 3 4 5/;

use Data::Dumper; warn Dumper @array;

# $VAR1 = '1';
# $VAR2 = '2';
# $VAR3 = '3';
# $VAR4 = '4';
# $VAR5 = '5';

## Reference
use Data::Dumper; warn Dumper \@array;

# $VAR1 = [
#           '1',
#           '2',
#           '3',
#           '4',
#           '5'
#         ];

my $scalar = 0;
my $array = \@array;

my @array2 = ($scalar, $array);

use Data::Dumper; warn Dumper @array2;

# $VAR1 = 0;
# $VAR2 = [
#           '1',
#           '2',
#           '3',
#           '4',
#           '5'
#         ];

my @array3 = ($scalar, @array);

use Data::Dumper; warn Dumper @array3;

# $VAR1 = 0;
# $VAR2 = '1';
# $VAR3 = '2';
# $VAR4 = '3';
# $VAR5 = '4';
# $VAR6 = '5';