my @edge = sort { $a <=> $b } keys %step;
my $step = 0;
my $x = shift @edge;
for(my $i = $x; defined $x; $i++) {
    if($i == $x) {
        $step += $step{$x};
        $x = shift @edge;
    }
    $arr[$i] += $step;
}