#!/usr/bin/perl -w

use strict;
use Tk;

my $mw = MainWindow->new;

for (["A","B"],["C","D"],["E","F"],["G","H"])
{
    my $frame = $mw->Frame()->pack(-side => "top");
    $frame->Button(-text => "$_->[0]",)->pack(-side => "left");
    $frame->Button(-text => "$_->[1]",)->pack(-side => "left");
}

MainLoop;