perl data structures example