Defferent scripts in perl to handler proteomics and mass spectrometry data