#! /usr/bin/perl

use strict;
use warnings;

# berechnen von 14x^3 + 5x^2 - 7x
my $zahl = 14 * 2**3 + 5 * 2**2 - 7 * 2;
my $zahl2 = 14 * 3**3 + 5 * 3**2 - 7 * 3;

print $zahl,"\n",$zahl2,"\n";
# usw...