#!/usr/bin/perl
use Tk;
use strict;
use warnings;

my $mw = new Tk::MainWindow;
my @array = qw(bannana boss ape);
my $checklist = 'List will go here';

$mw->fontCreate('big',
   -weight=>'bold',
   -size=> 24
   );

foreach my $item (@array)
{
$mw->Checkbutton(
     -font => 'big',
     -bg => 'white',
     -text=> $item,
     -offvalue=>'',
     -onvalue=>$item,
     -variable=>\$item,
     -command=>sub{$checklist="List: @array"})
->pack(-anchor=>'w');
}

$mw->Label(-font => 'big',
           -textvariable=>\$checklist)->pack(-side=>'left');
MainLoop;
[download]