my %hash = (foo => bar);
my @arr = (1);
my $var = \%hash;
my $var1 = \@arr;
my $var2 = 2;
print ref $var;
print ref $var1;
print ref $var2;