Absolutely.  Just use the place geometry manager instead of (or in addition to) pack.

For example:

use strict;
use warnings;
use Tk;

my $GUI = new MainWindow;

my $ROW1=$GUI->Frame(-relief=>'flat',
                     -borderwidth=>0,
                     -background=>'#c2d297')
                     ->pack(-side=>'top', -fill=>'x');

    my $photo = $ROW1->Photo(-file=>"numbers/1.bmp");

    my $photo_canvas = $ROW1->Canvas(-width=>29,
                                     -height=>32,  
                                     -background=>'#c2d297', 
                                     -borderwidth=>0)
                                     ->pack(-side=>'left');
            
    my $text = $ROW1->Text()->place(-x => 16, -y => 16);
    $photo_canvas->createImage(16, 18, -image=>$photo);

MainLoop;
[download]

The above example overlays a Text widget on top of the photo, by overlapping it in Frame $ROW1, with (x,y) coordinates of (16, 16).  Please refer to the Perl/Tk documentation, specifically the pages about geometry management (eg. pack, grid and place) for more details.

Thank you! =)

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::JPEG;
use Image::Magick;

my $im = Image::Magick->new;
my $image = shift || '2uni2.jpg';
my ($width, $height, $size, $format) = $im->Ping($image); 

my $mw = MainWindow->new();

my $canv = $mw->Canvas(-bg => 'lightsteelblue',
     -relief => 'sunken',
     -width => $width,
     -height => $height)->pack(-expand => 1, -fill => 'both');

my $img = $mw->Photo(-file => $image );
$canv->createImage( 0, 0, -image => $img, -anchor => 'nw' );

my $text = $mw->Scrolled('Text', 
                -bg=>'white',
                -scrollbars=>'osoe',
                     );

my $textcontainer = $canv->createWindow(
    $width/2, $height/2,  # default anchor is center
   -window => $text,
   -width => $width -200,
   -height => $height-200,
   -state => 'normal');

$text->focus;

MainLoop();
[download]