my $param = @_;
This should have been just as a hash ref
 my ($param) = @_;