c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @ra = (1);
 my $i = $#ra;
 ;;
 my @rb;
 $rb[ $i ] = $ra[ $i ] + $ra[ --$i ] while $i > 0;
 dd \@rb
"
[]