my $length = $#array;

    my $woord1;
    my $woord2;
    
for (my $q = 0; $q <= $length; $q++)
{
    if ($array[$q] =~ /^(\w+|\_)(\s)(\d{4})/)
    {
        $woord1 = "$1";
        for (my $x = $length-1; $x == 0; $x--)
        {
            if ($array[$x] =~ /^(\w+|\_)(\s)(\d{4})/)
            {
                $woord2 = "$1";
                if ("$woord1" eq "$woord2")
                {
                    print "$woord1\t$woord2\n are the same";
                    delete $array[$x];
                }
            }
        }
    }

}