Maybe you shouldn't use delete as a variable identifier since it is a Perl keyword. This can lead to some weird behaviour (but I am not really sure if that is the problem here).