how i get 5 on perl =