perl arraydelete.pl
1245