my @a = qw(
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/wochenplan-14-15.pdf
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/versuch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Laufzettel_Aktuell_Formular.doc
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/130218_Persp0000.psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/130218_Persp0000_(1).psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/Neuer Ordner/130218_Persp0000_(2).psd.filepart
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/test.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/wochenplan-14-15.pdf
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/date.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch_script.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/love.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loe.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/versuch.pl
);
my @b = qw(
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Projektarchivierung.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/versuch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/Laufzettel_Aktuell_Formular.doc
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/130218_Persp0000.psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/130218_Persp0000_(1).psd
    /var/lib/testverzeichnis/k_loesch/k_transport/madankert/1/Neuer Ordner/Neuer Ordner/130218_Persp0000_(2).psd.filepart
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/test.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/wochenplan-14-15.pdf
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/date.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/k_loesch_script.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loeschtest.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/Projektleiter.xlsx
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/love.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/loe.pl
    /var/lib/testverzeichnis/k_loesch/k_transport/srklgr/versuch.pl
);
my %h = map { $_ => 1 } @a;
@b = grep { ! exists $h{$_} } @b;

use Data::Dumper;
print Dumper \@b;