#!/usr/bin/perl
use warnings;
use strict;
my @x=qw(a b c);
print <<EOS;
foo @x bar
EOS