added perl method of fetching list