my ($user, $lib) = qw(/home/john /lib);

##</code><code>##

my ($user, $lib) = qw(/home/john /lib);
                                                                                
print "\$user is '$user'.\n";
print "\$lib is '$lib'.\n";
#
# Generates the output:
#
$user is '/home/john'.
$lib is '/lib'.