my $result = 1;
for my $i ( 0 .. $#vals ) 
{ 
    $result &&= foo( $vals[$i], $arr[$i] );
}
if ( $result ) { ..