sub foo
{
     my ($foobar, $frurab) = @_;
     my @foo = split(/,/, $foobar);
     my $bar;
     my $x;

     foreach $x (@$frurab)
     {
           $bar .= $x->foo();
     }

     foreach $x (@foo)
     {
           $bar = "<$x>$bar</$x>";
     }

     return $bar;
}

##</code><code>##

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;
}