Perl Arrays

my @array = (1, 2, 3); # numeric array
my @names = ("Alice", "Bob"); # string array
my @empty = (); # empty array
my @range = (1..10); # range operator

$array[0] # first element (scalar context)
$array[-1] # last element
@array[0, 2] # multiple elements (list context)
@array[1..3] # slice

push(@array, 4); # add to end
pop(@array); # remove from end
unshift(@array, 0); # add to beginning
shift(@array); # remove from beginning

scalar(@array) # get length
$#array # last index
reverse(@array) # reverse array
sort(@array) # sort array
join(", ", @array) # join to string

foreach my $item (@array) { # iterate with foreach
    print "$item\n";
}
for (my $i = 0; $i < scalar(@array); $i++) { # C-style loop
    print "$array[$i]\n";
}