perl -le "@a=(2,4,6); sub x{@a} print scalar(x());"