perl -le "@a=(2,4,6); sub x{@a} print scalar(x());" [download]
In reply to Re^2: Determining subroutine return type by sandfly in thread Determining subroutine return type by satchm0h