tie @DB, 'Tie::File', $database or die ...;
        for (@DB) {
          my ($username) = split /:/, $_;
          $recno{$username} = $lineno++;
        }

        sub lookup {
          my $username = shift;
          return $DB[$recno{$username}];
        }