#!/usr/bin/perl -w

use strict;

my @a = qw/this is a list/;	# equivalent to ('this', 'is', 'a', 'list')

print join(",", @a), "\n";

my ($one, $two) = @a;
print "$one/$two\n";

my ($a, $b, $c, $d, $e) = @a;
print "$a,$b,$c,$d,$e\n";

my ($val1) = @a;

my $val2 = @a;

print "$val1 $val2\n";

@a = sort @a;
print "@a\n";