for (@$STF1){
    print OUTPUT "<li>$_->[0]</li>" .
                 qq{<a href="$_->[1]$STF3_Tables">$_->[2]</a><br />\n};
}

##</code><code>##

for (@STF1){
    printf OUTPUT "<li>%s</li>" .
                  qq{<a href="%s$STF3_Tables">%s</a><br />\n},
                  @$_;
}

##</code><code>##

# my @temp = foo; my $ref = [ @temp ];
my $ref = [ foo ];
# ($a, $b) = \(@a, @b); return $a, $b;
return \(@a, @b);

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$