Well, here's one way:

for (@array) {
        if ( $x =~ /^$_/ ) {
                #do something
                last;
        }
}


--
  Simon Oliver

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]

Reply via email to