#!/usr/bin/perl
use strict;
                                                                                                                             
                                                                                                                             
my @list = q('Ashok Hello');
                                                                                                                             
print "val: $_\n" foreach @list;
@list = qw('Ashok Hello');
print "val: $_\n" foreach @list;


##</code><code>##

Output is as follows :-
val: 'Ashok Hello'
val: 'Ashok
val: Hello'