Create numberList.perl