#!/usr/bin/perl
use strict;
use warnings;
my @list = qw/a b c/;
my ($x) = @list;
print "X: $x, List: @list\n";
my $y = shift @list;
print "Y: $y, List: @list\n";