$song->{initial} or next; はあんまりお行儀よくない

[yappo]

項目ごとにバリデーションして trhow 的な事するんじゃなくて、処理の最初に全部バリデーションしたほうが見通しいい。

このコードだと代入しつつバリデーションなので一瞬とまどうから

unless ($song->{initial} && $song->{title}) {
    next;
}
my $initial = $song->{initial};
my $title   = $song->{title};

とかしたほうがいいが、そもそも LTSV があれなので