#!/usr/bin/perl

use strict;
use Data::Dumper;

tie( my %test, 'Sample_Tie_Class' );

$test{'hello'} = 'hi';
print "$test{'hello'}\n";

print Dumper \%test;


package Sample_Tie_Class;

use strict;

sub TIEHASH {
    my $class = shift;
    bless { 'value' => {}, }, $class;
}

sub STORE {
    my ($self, $key, $value) = @_;
    $self->{'value'}->{$key} = $value;
}

sub FETCH {
    my ($self, $key) = @_;
    return $self->{'value'}->{$key};
}

sub FIRSTKEY {
}