指针有关的问题，求解惑

希望您能从perl原理上解释一下

my @array = qw(this is confused);
my @seeme = ();
for (@array){
   my $val = $_;     #每次都对变量$var重新赋值
   my $ref = \$val;   #每次都重新将$ref指向$var
   push @seeme , $ref;
}
     #到现在@seeme中应该全部是指向$val的指针
for (@seeme){
   print "$_" , "\n" ;     #预期遍历中每次应该打印$var的值，也就是"confused" , 但实际上却分别打印了历史上每一次为var的赋值
}

得到结果：
this
is
confused

预期结果：
confused
confused
confused

晕！

非常晕！

求正解

print 中的双$ 被显示成一个了吧？你能讲下你的预期结果是怎么来的