なんか詳細が無い番組がxmlに取れてない気がした。
foreach my $elem_td (@elems_td)
　 foreach my $elem (@elems)
　 　 ifとかelsifとか

でstyle_cornerで引っ掛けてif(){get_content();}を呼んでる。
style_cornerが無い番組も有るので
foreach my $elem (@elems)を抜けた後に
if(){get_content();}を呼ぶようにしたら上手く出来た。