#!/usr/bin/perl
use strict;
use warnings;

my $summe1 = -19854.94;
my $summe2 = -3970.99 + -15883.95;
print ($summe1 - $summe2);