@old_array = (1,2,3,4,5,10,6,7,8,9);
@new_array = grep(/^\d$/, @old_array);