Select Code to Download

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

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