delete ---> Perl, Jacob
input number: