#!/usr/bin/env dvperl
use strict;
use Number;
use Storable;

my $stuff = {'one' => new Number(1, "One"),
	     'two' => new Number(2, "Two"),
	     'twotwo' => new Number(2, "Two")};

foreach my $key (keys %$stuff) {
    my $number = $stuff->{$key};
    my $num = $number->asNumber();
    my $txt = $number->asText();
    print ("Key: ($key)\tNum: ($num)\tTxt: ($txt)\tObject: ($number)\n");
}

store $stuff, 'storefile';