use strict;
use warnings;
use Data::Dumper;

$|= 0;

my @values = (7,9,2,0,1,2,4,3,9);
my @values2;

my $XAxis_LMSE = scalar @values;
my ($minLMSE_Graph, $maxLMSE_Graph) = (sort {$a <=> $b} @values)[0, -1];

for (my $i = 0; $i < scalar @values; $i++) {
    my $rem = $maxLMSE_Graph - $values[$i];
    push (@values2, $rem);
}

print Dumper @values2;