#! perl -w
use strict;

sub decode {  my $val; return map { $val += $_ } @_; }

my @input = qw( 1000 1 -21 44 -1 );
my @output = decode @input;
print "@output", $/;
__END__
C:\test>190239
1000 1001 980 1024 1023