sub foo
{
     my ($foobar, $frurabs) = @_;
     my $return;

     foreach my $frurab_entry (@$frurabs)
     {
           $return .= $frurab_entry->foo();
     }

     foreach my $tag (split(/,/, $foobar))
     {
           $return = "<$tag>$return</$tag>";
     }

     return $return;
}