% my $i = 0;
% foreach my $link ( @$links ) {
% my $auto = '';
% if ( exists $link->{auto} && ref $link->{auto} eq 'HASH' ) {
% while ( my ($from, $to) = each %{ $link->{auto} } ) {
% $auto .= '&from='.$from.'&to='.$document->$to;
% }
% }
<% $link->{name} %>\
% $i++;
% }