Very simple stats in perl