#!/usr/bin/perl -wT
use strict;

sub test1 {
  return @{[ qw(A B C) ]};
}

sub test2 {
  return qw(A B C);
}

sub test3 {
  return wantarray ? qw(A B C) : 'I like jellybeans';
}

print "List context\n",
      "  test1: ", join(', ',test1()), "\n",
      "  test2: ", join(', ',test2()), "\n",
      "  test3: ", join(', ',test3()), "\n",
      "\nScalar context\n",
      "  test1: ", scalar test1(), "\n",
      "  test2: ", scalar test2(), "\n",
      "  test3: ", scalar test3(), "\n";

=OUTPUT
List context
 test1: A, B, C
 test2: A, B, C
 test3: A, B, C

Scalar context
 test1: 3
 test2: C
 test3: I like jellybeans