配列の中身を任意の区切り文字で表示する

my @dat=("a","b","c");
my $separator = "\n";

foreach (@dat){
    print "$_$separator";
}

とやっていたが

print "$_$separator",for @dat;

でも同じ出力が得られるらしい。