one liner for for and if

#!/usr/bin/perl

use warnings;
use strict;

my @[EMAIL PROTECTED]
 = qw/one two three four/;

print "$_\n" for @[EMAIL PROTECTED]
 last if "$_" eq q/three/;


[root@[EMAIL PROTECTED]
 tmp]# ./!$
.././././testthis2.pl
syntax error at ././././testthis2.pl line 8, near "@[EMAIL PROTECTED]
 last "
Execution of ././././testthis2.pl aborted due to compilation errors.

Can someone fix my last statement on this program?

I thought maybe this will work   but guess not... is there no easy way 
to do this?

I don't want to do

for (@[EMAIL PROTECTED]
) {
     if .......
     }
}


just trying to see what the correct format is that for one liner that I 
am trying

thanks in advance.