while (my ($key, $value) = each %{$data->{Dev}->{VeCog}->{Operations}}) {
    print $key, ":", $value->{Value}, "\n";
}