$last_img   =       pop @img_list;

for my $item (@img_list) {
        print span({-class=>'mitem'}),  
                a ({-href=>"$script?action=$item->{p}", 
                    -title=>"$item->{a}"},
                img({-src=>"i/$item->{p}.gif",
                     -border=>'0', 
                     -alt=>"($item->{a})"}),
                " $item->{t} " ),
                " | ",
                "\n";
}