#!/usr/bin/perl

use strict;

# example 1
my $ref1 = \(qw(one two three));    # should be called in list context

# example 2
my @list = qw(one two three);
my $ref2 = \@list;

# example 3
# returns same as example 1
my $ref3 = \(@list);                # should be called in list context

print ref $ref1, "\n";
print ref $ref2, "\n";
print ref $ref3, "\n";