in reply to A dereferencing problem

Your problem lies here: 
my $param = (@_);

[download]
You evaluate @_ in scalar context, which returns the number of elements (1). You need this instead: 
my ($param)= @_;

[download]

In Section Seekers of Perl Wisdom