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

sub msg {
    print "@_\n";
}