#!/usr/bin/perl
use strict;
use warnings;

my $a;
my $b;
my $c;

# list assignment
# the individual members of the list are assigned values
($a, $b, $c) = qw/alpha beta gamma/;

print '$a: ' . "$a\n";
print '$b: ' . "$b\n";
print '$c: ' . "$c\n";