use strict;
use warnings;

my $leftEq         = -8;
my $rightEq        = -8;
my $factor         = 0.5;
my $leftStorDelta  = -15;
my $rightStorDelta = -15;

print "LEQ/REQ: $leftEq $rightEq\n";
($leftEq, $rightEq) =
    ($leftEq + $leftStorDelta * $factor, $rightEq + $rightStorDelta * $factor);
print "Fct: $factor Delt: $leftStorDelta $rightStorDelta\n";
print "Post-LEQ/REQ: $leftEq $rightEq\n\n";

printf "%0.2f, %0.2f\n", 1.23, 1.345;