#!/usr/local/bin/perl

use Data::Dumper;

# new line at the end of each print, automatically
$\ = "\n";

@x = ();

$x[0] = 1;
$x[1] = 2;
$x[-1] = 3;

print Dumper(\@x);

$x[3] = 4;

print Dumper(\@x);

@y = ();
$y[5] = 5;

print Dumper(\@y);

@z = (1..5);

@w = (1..5);

print $#w;

$#w = 5;
print Dumper(\@w);

$#w = 3;
print Dumper(\@w);

$#w = 5;
print Dumper(\@w);

print a..z;