# Abfragen ob der Port als Key exists UND flag == 1
my @p22 = map{$_}grep{exists $Devices{$_}{22} && $Devices{$_}{22} == 1}keys %Devices;