#!/usr/bin/env perl

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

my $a = [];
# scalar context
my $b = $a;
$a->[0] = 100; $a->[1] = 200; $a->[2] = 300;
print Dumper({ a => $a, b => $b, });