sub a {
my @a = @_;
print "@$a";
}

my @a = (a, b, c);
a(\@a);

サブルーチンに配列のリファレンスを渡して
サブルーチン内でそれをデリファレンスして表示したいのですが

これの結果に何も表示されません
a b cと表示されることを期待しているのですが
どこがまずいのでしょうか?