random stuff in perl