hardoded builder

foo.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Moose::Util::TypeConstraints;
use MooseX::Types::Moose qw/ ArrayRef Str/;
coerce Str,
    from ArrayRef,
    via {
        my $data = $_;
        my @attribs = split "/","foo/bar/baz";
        my $i = 0;
        return join ("",map {
                    "<$_>$data->[$i++]";
        } @attribs) . join ("",map { "</$_>" } reverse @attribs);
    };

{
    package Foo;
    use Moose;

    has "elem" => ( is => "rw", isa => "Str", coerce => 1, );

    1;
}

## main
my $f = Foo->new(elem => ["Ted", "Tampa, FL", 100]);

print $f->elem();