#!/usr/local/bin/perl
 @a=[1,2]; print @a