#!/usr/local/bin/perl -w
use strict "vars";
use strict "subs";

sub inter(\%) {
  printf "$_[0]\n";
  printf "@_\n";

  printf "$_[0]->{a}\n";
  printf "$_[0]{a}\n";
}

printf "ONE\n";
my %c = (a=>"a",b=>"b");
inter(%c);
printf "TWO\n";
my $ref = "inter";
$ref->(%c);
printf "THREE\n";
$ref->(\%c);