>>597
my @list;
open(IN, "house.csv");
while (<IN>){
　　chomp;
　　my ($id, $station) = split /,/;

　　my %list;
　　$list{id} = $id;
　　$list{station} = $station;
　　push @list, $%list;
}

my $template = HTML::Template->new(filename => './tmpl/search_result.html');
$template->param(
　　LIST => \@list
);

search_result.htmlの該当部分例
<TABLE>
<TMPL_LOOP NAME="LIST">
<TR><TD><TMPL_VAR NAME="id"></TD><TD><TMPL_VAR NAME="station"></TD></TR>
</TMPL_LOOP>
</TABLE>