#!/usr/bin/perl

use strict;
use warnings;

use DBI;

# what's your data look like?
my %monks = (
  '8930'   => 'derby',
  '581658' => 'wpahiker',
  '961'    => 'Anonymous Coward',
  '104919' => 'perrin'
);

# create the database handle
my $dbh = DBI->connect( "dbi:SQLite:monastery.dat" );

# create a table
$dbh->do( "CREATE TABLE monks (id INTEGER PRIMARY KEY, name)" );

# insert values
foreach my $monkid ( keys %monks ) {
  $dbh->do( "INSERT INTO monks VALUES ($monkid, '$monks{$monkid}')" );
}

# fetch data
my $sql = "select * from monks";
my $res = $dbh->selectall_arrayref( $sql );
foreach my $rec (@$res) {
  print "$rec->[1] is $rec->[0]\n";
}

$dbh->disconnect;