my @ist = qw(name1 name2 name3);
my @soll = qw(name2 name4);

my %zustand;
# speichere alle "ist"-namen in Hash mit Zustand 1
@zustand{@ist} = (1) x @ist;

# überprüfe die "soll"-namen
for my $sollname ( @soll ){
  if( exists $zustand{$sollname} ){
    $zustand{$sollname} = 3;
  }
  else{
    $zustand{$sollname} = 2;
  }
}