Yes it is. On the other hand, I wouldn't structure my program in such a way. I'd personally do something like

foreach (@bar){
    if(/foo/){
        msg("bar bar");
        last;
    }
}
exit();

sub msg {
    print "@_\n";
}
[download]

If you're wondering why, see BrowserUks reply -- he completely missed that a function called msg exit's the program, which is quite a weird thing for a function called msg to do ;)

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.