for my $out (@{$res->{out}}) { print F3 "$out->{title} $out->{info} $out->{info}\n"; }