#!/usr/bin/perl
  use strict;
  use warnings;

  my $scalar = qw/one two three/;
  my @array  = qw/one two three/;
  print '$scalar is ', $scalar, "\n";                         # prints 'three'
  print '@array in scalar context is ', scalar @array, "\n";  # prints 3