#!/usr/bin/perl
# test.pl

use strict;
use Data::Dumper;

my @foo = ('a', 'b', 'c');

##</code><code>##

> test.pl
$VAR1 = 'a';
$VAR2 = 'b';
$VAR3 = 'c';