my @arr1 = (0) x 4;
my $n = 0;
for( reverse @arr1 ) {
	$_ += $n++;
}
print "@arr1\n";

__END__
Output
3 2 1 0