if ($processTableRecord->fname eq $server) {
    %{$server} = (
        pid    => '$processTableRecord->pid',
        server => '$processTableRecord->fname'
    );
    print $processTableRecord->uid, "\n";
}