use Nexcerpt::Table qw(names cities states);

my $Michigan = states->get({ abbrev => 'MI' });

$Michigan->put({ timezone => 'Eastern' });

my $Puerto_Rico = states->new({ abbrev => 'PR',
name => 'Puerto Rico', ... });
$Puerto_Rico->put;

print $Puerto_Rico->{sequence};  # fields auto-updated on put

my @homes = cities->getall('WHERE name = ?','Springfield');

etc.