in reply to How to sovle this, if i use strict i'm getting error.

Hi sen, put eval "&$a"; and run the code than it will works..

Refer perldoc -f eval

In Section Seekers of Perl Wisdom