Your problem appears to be that

while (<SPAMMESSEGES>) {
[download]

Assigns one line to $_ and then

        my $spam = <SPAMMESSEGES>;
[download]

Assigns the next line to $spam so you are only processing every second line.