编辑代码

@sushe101=qw(hr fshuo yixi yanlin xiain);
$name=<STDIN>;
$line=@sushe101;
chomp($name);
$result=&find_name($name,@sushe101);
print $result;
$i=0;

sub find_name{
    foreach$name_(@sushe101){
        if($name eq $name_){
            return "yes";
    
        }
        
    }
    return "no";
}