my $data = "you are hearing me talk";

sub show_data {
	my $d_ref = shift;
	print $$d_ref;
}

show_data{\$data);