if (my $vhost5 = $vhosts{vhost5}) {
   if (@$vhost5 == 1 && $vhost5->[0] eq 'l02duapofqa') {
      ...
   }
}