Everything i've done in perl