bernhard@Fitz:~$ perl -w -MData::Dumper -e 'my @a=[1,2,{1=>{2=>"i"}}]; sub abc{print Dumper( \@a, \@_ ) }; abc(@a)';
$VAR1 = [
          [
            1,
            2,
            {
              '1' => {
                       '2' => 'i'
                     }
            }
          ]
        ];
$VAR2 = [
          $VAR1->[0]
        ];