And… yes… again a stupid thing in PERL coding

As you probably have read, I am writing a script (for more information about this read this posting).

I had written a nice subroutine like:

and I called this routine using:

And the result was

Nothing… but it must return a value… Just what is said… I must return a value… after adding a return command in the subroutine… it worked

The result: