C:\test>p1
@array1 = qw[ t1 t2 t3 ];;
@array2 = qw[ t1 t2 t5 t7 t8 ];;
@seen{ @array1 }=(); 
@final = grep !exists $seen{ $_ }, @array2;;
print "@final";;

t5 t7 t8