use strict;
my @ar1=qw/hallo du wie geht das/;
my @ar2=qw/hallo du/;
my %ar2; @ar2{@ar2}=();
my @ar3 = grep {! exists $ar2{$_}} @ar1;
print "$_\n" for @ar3;