my @arr = (1,2,3,4,5);
my $ref = [@arr];
my $ref1 = \@arr;
print "$ref->[0]\n"; # 1
print "$ref1->[0]\n"; # 1