perl ass1