Sub-Routines at the end of the program

Hi,

Is there a way to define sub - routines at the end of the program like -

a=3

Ans=cube(a)

cube(a)=   a*a*a

PS: I dont want to combine the call function and function definition.....

Thanks in Advance,

Prithivi