配列じゃなくてテキストだったらこんなのでも。

my $test =<<"EOT";
松島
秩父
hogehoge 癒し系
松本
EOT

$test =~ s/\n(?=hogehoge)/→/g;