package A;

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $obj;
  %$obj = @_;
  return bless ($obj, $class);
}

sub TrialMethod {
  print "The method was called\n";
}

package A::SubClass;
@ISA = A;

sub new {
  my $proto = shift;
  my $obj = $proto->SUPER::new(@_);
  tie (%$obj, 'Some::Tie::Class', $obj);
  return $obj;
}

package Some::Tie::Class;

sub FETCH {
  print "A fetch happened\n";
}

sub TIEHASH {
  my $class = shift;
  my %hash = %{ shift() };
  return bless \%hash, $class;
}

package main;

my $thing = new A::SubClass(qw(hello world));
$thing->TrialMethod();
$thing->{foo};