#!/usr/bin/perl -w
# $Id: context.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $

@_=(1,2,3);
# Print the length of a list
print scalar(@_),"\n";
# Print the concatenated list content
print @_, "\n";
