my @friends = ("merlyn","nate", "vroom", "neshura", "chromatic", "setantae", "btrott","stephen","lhoward","ZZamboni","kudra","tilly","cogent");
my $friend;
$friend ||= $friends[rand(@friends)];
$query->textfield("usersearch", $friend);