Working on perl skills