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