#!/usr/bin/perl

use strict;
use warnings;

my %hidden = (var_name1 => 'var_value1',
              var_name2 => 'var_value2');

my $hidden_ref = \%hidden;

print $$hidden_ref{var_name1};
print $hidden{var_name1};