use File::Spec;
[...]
open my $leser, '<', File::Spec->catfile('data', 'unterdata', "$dropdown.csv") or die "Fehler in open: $!";