#!/usr/bin/env perl

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

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