#!/usr/bin/perl -w
use 5.010;
use strict;

print "\n";

my @frau = qw /bl ge gr br sw rt/;
my @mann = qw /ge bl bl br sw rt/;

my $paar;

  for ( 0..$#frau ) {

    for my $k ( 0..$#mann ) {
      
      if ( $frau[$_] eq $mann[$k] ) {
	$paar++;
	splice ( @mann, $k, 1 );
	last
      }
    
    }

  }

print "Paare: $paar\n";