I suggest a healty reading of Tk::pack (fyi, it is not the only geometry manager)

use Tk;
use strict;
use warnings;


my $mw = MainWindow->new(
    -bg     => 'beige',
);

my $l = $mw->Frame(
    -width => 111,
    -height => 333,
    -relief => "raised",
    -borderwidth => 2,
    -bg => '#EEE000',
)->pack(
    -fill => 'x',
    -side => 'left',
    -anchor => 'n',
);


my $r = $mw->Frame(
    -width => 111,
    -height => 333,
    -relief => "raised",
    -borderwidth => 2,
    -bg => '#F0F000',
)->pack(
    -fill => 'both',
    -side => 'left',
    -anchor => 'n',
);

my $r2 = $mw->Frame(
    -width => 111,
    -height => 333,
    -relief => "raised",
    -borderwidth => 2,
    -bg => '#F0F000',
)->pack(
    -fill => 'both',
    -side => 'left',
    -anchor => 'n',
);


for( qw[
       Name:
    Version:
Description:
       Date:
]   ){
    $l->Label(
        -text => $_,
    #    -justify => 'right',
        -anchor => 'e',
    )->pack(
        #-anchor => 'e', # if you don't fill
        -fill => 'x',
    );

    $r->Label(
        -text => $_,
    #    -justify => 'right',
        -anchor => 'e',
    )->pack(
        -anchor => 'e', # if you don't fill
        #-fill => 'x',
    );

    $r2->Label(
        -text => $_,
        -justify => 'right',
    #    -anchor => 'e',
    )->pack(
        #-anchor => 'e', # if you don't fill
        #-fill => 'x',
    );
 }


#$top->Label(-text => "Enter the scroll frame")->pack;
MainLoop;
[download]