require "conf/album_conf"; foreach $c (@conf) { foreach $i (@{$c->{pix}}) { open C, ">Pictures/C/$i.txt"; print C $c->{title}; close C; } }