added test data for perl