use strict;  
use warnings;  
use Data::Dumper;   
  
my $var1 = 1;  
my $var2 = 2;  
my $var3 = 3;  
my $refRef = [\($var1, $var2, $var3)];  
print Dumper $refRef;

 $VAR1 = [  
          \1,  
          \2,  
          \3  
        ];