my @daten = ("R300","C12","F2","R12");
my @daten2 = ("R30","C12","F2","R12");
# Menge 1 bilden 
my %daten = map +($_ => undef), @daten;
# Subtrahiere von der 1. Menge die 2.
delete @daten{@daten2};
# Ergebnis: nur noch R300
print keys %daten;