#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file_a = 'a.txt';
my $file_b = 'b.txt';

tie my @b_lines, 'Tie::File', $file_b or die $!;
open my $fh, '<', $file_a or die $!;

while( my $zeile = <$fh> ){
   chomp $zeile;
   my @spalten = split /;/, $zeile;
   ZEILE: for my $zeile_b ( @b_lines ){
      my @spalten_b = split /;/, $zeile_b;
      
      if( @spalten == @spalten_b ){
         for ( 0..$#spalten ){
            next ZEILE unless $spalten[$_] eq $spalten_b[$_];
         }
         print "Alles klar: $zeile\n";
      }
   }
}

close $fh;
untie @b_lines;