== is the numeric comparison operator, not the assignment operator, which is quite similar: =. See perlop for details. warnings should have told you:

Useless use of numeric eq (==) in void context at ...
[download]

Also, you don't populate $a anywhere. Maybe, you meant

foreach my $a (@list_of_numbers) {
[download]