My first golf :) Too bad I didn't have time for the second hole. I wish I have time at least rethink this later with some people...
There is still time
#!perl ($r=$r*$_%1e6)=~s/0*$//for($r=1)..pop;print$r%10,$/