search_by_tags ($cgi->param('tags'));
#...
sub search_by_tags {
    my $tagstr = shift;
    return unless defined $tagstr;
    my @tags = split (/,/, $tagstr);
}