# $options is some JSON decoded array of hash'es thing.

my $comments;
foreach my $device(@{$options->{'data'}}) {
  if ($device->{'systemname'} eq "XYZ") {
    $comments = $device->{'comments'};
    exit;
  }
}
print $comments;

# WHY is $comments empty !?