Select Code to Download

my %hash;
$hash{$_->{id}} += $_->{value} for @$var;
$var = [ map { +{id => $_, value => $hash{$_} } } sort keys %hash ];

my $lastind = -1;
for my $i (0 .. @$var - 1) {
...
        $lastind = $i;
    }
}