#!/usr/bin/perl
use SDBM_File;
use POSIX;

sub database 
{
	my ($pseudo) = @_;
	
	%dbm;
	$db_file = "CTIC.dbm";
	tie %dbm, 'SDBM_File', $db_file, O_RDWR, 0;	#open read only

	@list=split ("__",$dbm{"$pseudo"});
	
		$count = 0;
	
		foreach $item(@list)
		{
			$queue1 = $item;
			$count++;
		}

	untie %dbm;
	@list2 =(@list,$count);
	
	return @list2;
		
	
}