print calculate_fn(1,2,3);

sub calculate_fn() { #intermediate step
	my $ypn = $_[0];
	my $yn = $_[1];
	my $xn = $_[2];
	return 4*$ypn - 8*$yn + ($xn*$xn*$xn);
}