#!/usr/bin/perl

use warnings;
use strict;

my @array = qw/one two three four/;

print "$_\n" for @array last if "$_" eq q/three/;

[root@server tmp]# ./!$
././././testthis2.pl
syntax error at ././././testthis2.pl line 8, near "@array 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 (@array) {
if .......
}
}

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

I just finished reading "Beginning Perl by Simon Cozens Chapter 1: First
Steps In Perl" and i tried to print a Unicode character using the \x{}
but i got a strange outcome i don't understand.
The code was:

#!/user/bin/perl
use warnings;
print "\x{2620}\n";

and the result was:

Wide character in print at C:\Documents and
Settings\Vlad\desktop\test.plx line 3.
?ÿá

I used windows xp
cmd.exe
and i have activeperl 5.10.0 build 1002