use v5.14;
chomp(my $word = <STDIN>); 
                          
foreach my $name(@array){ 
   if($name eq $word){ #if the name equals the word
      say $name;
   }
}