#!/usr/bin/perl -w

use strict;
system('clear');

my $test = first();
two($test);

sub first{
	my @data;
	my %objREF;

	$data[2] = 'hi there';
	$objREF{poker} = \$data[2];
}

sub two{
	my $objREF = shift;
	
	#print "$objREF{'poker'}";
	#print "$$objREF{'poker'}";
	#print "$objREF->{'poker'}";
	#print "$$objREF->{'poker'}";
	#print "$$$objREF{'poker'}";
	#print "$$$$objREF{'poker'}";
	#print "${$objREF{'poker'}}\n";
	print "$${$objREF->{'poker'}}\n";

}