perl... #perlはじめました

sample.sh

/Users/massat% perl -MData::Dumper -e 'my @array = [1,2,3]; warn Dumper @array; foreach (@array) { warn Dumper $_ };' 
$VAR1 = [
          1,
          2,
          3
        ];
$VAR1 = [
          1,
          2,
          3
        ];

なんで同じDump結果になるの。鬼なの。