use Data::Dumper;
# print "2718281828459045235360287471352662497757247093699\n";

sub e{
    @e=(1)x pop;
    for(1..@e){
        print "Before: ", Dumper \@e;
        for(reverse(1..$#e)){

            printf "Add %3.3f/%d(%3.3f) to \$e[%d] (now %3.3f);    ", 
                $e[$_],$_, $e[$_]/$_, $_-1, ($e[$_-1]+ $e[$_]/$_);

            $e[$_-1]+=$e[$_]/$_;

            printf "Set \$e[%d] = %d (10*(%d%%%d))\n", 
                $_, 10*($e[$_]%$_), $e[$_], $_;

            $e[$_]=10*($e[$_]%$_);

        }
        print "After: ", Dumper \@e;
        printf "Printing: %d\n\n", $e[0];
        $e[0]=0
    }
}

e(5);