use strict;
use warnings;

my @a = (qw/a b c def/);
my $s = "foo";

print "s=$    s, a=@  a\n";