print "left @array right";
# try perl -MO=Deparse for that:
print 'left '.join($",@array).' right'