#!/usr/bin/perl

use XUL::Gui;

$moreThanOne=5;

sub build_list
{
        my $howmany = shift;
        my @list = ();

        for(my $i = 0, $imax = $howmany; $i <= $imax; $i++)
        {
                push @list, Label (value=>$i);
        }

        return @list;
}

@pacientes = build_list $moreThanOne;

display Window title => "Pacientes", width => 640, height => 480, GroupBox (@pacientes);