# t = TITLE tag
# p = param passed
# a = ALT tag
# d = Description 
@img_list= 
       ({t=>'palm',        p=>'palm',
         a=>'Plucker running on the Palm',
         d=>'Plucker on the Palm device supports B&W,
             color, VFS, and external storage'},

        # Handera in Scale-to-Fit (StF) mode
        {t=>'handera_stf', p=>'handera_stf',
         a=>'Plucker in Scale-to-Fit mode on the Handera'},

        # HiRes Sony
        {t=>'sony_hr',     p=>'sony_jd',
         a=>'Plucker on the Sony device in HiRes mode'},

        # Sony with JodDial support
        {t=>'sony_jd',     p=>'sony_jd',
         a=>'Plucker on the Sony device in HiRes mode'},

        {...},
        ); 

##</code><code>##

$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})"}),
                "&nbsp;$item->{t}&nbsp;" ),
                " | ",
                "\n";
}