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

my $stuff;

$stuff = retrieve 'storefile';

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");
}