programming-examples/perl/String/Assign returning value from qw to an array.pl

@a = qw/P, e, r, l/;
print @a;