#! perl -slw
use strict;

sub formatImages{
    local $\;
    my( $w, $h ) = ( shift, shift );
    my $html = "<table>\n";
    for my $hi ( 1 .. $h ) {
        $html .= '<tr>';
        for my $wi ( 1 .. $w ) {
            last unless @_;
            $html .= '<td> ' . shift() . ' </td>';
        }
        $html .= "</tr>\n";
        last unless @_;
    }
    return $html . "</table>\n";
}

while( 1 ) {
    my @images = ( 1 .. rand 20 );
    print scalar @images;
    print formatImages( 4, 5, @images );
    <STDIN>;
}