some data for perl