#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=users.lite","","",
	or die "Can't connect";
	
my $sh2=$dbh->prepare("select code,name from level ");
$sh2->execute() or die();
my @name;

while (my @row = $sh2->fetchrow_array) 
{
    push @name, [@row]; 
} 

$dbh->disconnect or die $!;

for my $i ( 0 .. $#name) {
	print "code: $name[$i][0] name: $name[$i][1]\n";	
}

__END__
*** the program prints
code: 001 name: Level1
code: 002 name: Level2
code: 003 name: Level3
code: 004 name: Level4
code: 005 name: Level5
code: 006 name: Level6
code: 007 name: Level7
code: 008 name: Level8
code: 009 name: Level9
code: 0010 name: Level10
code: 0011 name: Level11