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