How to write a function that takes two value in perl language

#Alamgir, CSE, JUST

sub function
{
($x,$y) = @_;

return ((2*$x)+23+$y);

}

$res = &function(20,10);
print "Resulr is : $res";