How to write a function in perl language

#Alamgir Hossain, CSE, JUST

sub bisection
{
$x=@_;
return (($x**3)+(3*$x)-5);
}

$res=&bisection(50);
print $res;