printf '<%s>', $element->{name};

##</code><code>##

print "<$_>" for $element->{name};

##</code><code>##

use strict;
use Benchmark ':all';

open $::dummy, ">", \$::data;

cmpthese(100_000, {
	print_for  => q[ $::data = ''; print {$::dummy} "<$_>" for "a" ],
	printf     => q[ $::data = ''; printf {$::dummy} "<%s>", "a" ],
});

__END__
             Rate    printf print_for
printf     7663/s        --      -79%
print_for 36765/s      380%        --