Select Code to Download

sub decode2 {
    my $total = shift;
    my $delta;
...
    my @results= map { $value += $_ } @_;
    return ($original, @results);
}

sub decode2 {
    my $total = shift;
    my $diff;
...
    my @results= map { $value += $_ } @_;
    return ($original, @results);
}

sub decode2 {
    my $total = shift;
    my $diff;
...
    my @results= map { $next += $_ } $original, @_;
    return @results;
}

sub decode2 {
    my $dc;
    $_[0] = -$_[0];
...
    my $next;
    return map { $next += $_ } $original, splice @_, 1;
}

sub decode2 {
    my ($dc, $next);
    $_[0] = -$_[0];
...
    $_[0] = $dc/@_ - $_[1];
    return map { $next += $_ } @_;
}