Select Code to Download

   #!/usr/bin/perl
  use strict;
...
  my @array  = qw/one two three/;
  print '$scalar is ', $scalar, "\n";                         # prints
+ 'three'
  print '@array in scalar context is ', scalar @array, "\n";  # prints
+ 3