for(@foo){
    print "got x $_\n" if /^x/;
}