if (my $vhost5 = $vhosts{vhost5}) {
   if (grep { $_ eq 'l02duapofqa' } @$vhost5) {
      ...
   }
}