#! /usr/bin/perl

use strict;
use warnings;

print func(2),"\n",func(3),"\n";

sub func{
  my ($x) = @_;
  return 14 * $x**3 + 5 * $x**2 - 7 * $x;
}