Take a look at Tk::Thumbnail, which can easily be used to render your list of pictures.

The thumbnails are by default clickable.

use Tk;
use Tk::Thumbnail;
use strict;

my @thumbnails = ("ant_logo_small.gif", "current.gif", "group-logo.gif
+");
my $mw = MainWindow->new;
$mw->geometry("600x400");
my $thumb = $mw->Thumbnail(-images => \@thumbnails, -labels =>0, -widt
+h => '50', -height => '50', -command =>\&openwin)->pack;

MainLoop;

sub openwin {
    my $tw = MainWindow->new;
    my $pic = $tw->Photo(-file=>$_[1]);
    $tw->Label(-image => $pic)->pack;
};
[download]