sub queryProcesses {
    my $server = shift;

##</code><code>##


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

##</code><code>##

pid    => '$processTableRecord->pid',

##</code><code>##


$server = { pid    => $processTableRecord->pid,
            server => $processTableRecord->fname };