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