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