tie(my @db, 'My::DB',$file);

...
for my $temp (@db) {
  print "$temp->[1]\n";
}
...

$db[100][1]="George Orwell";