our $VAR1;
do "File.output";

foreach my $key (keys %{$VAR1->{value}}) {
   print $VAR1->{value}->{$key}->{id}.": "$VAR1->{value}->{$key}->{interventionTypeEn}."\n";
}