Try the Tk-Canvas-Point module, by Slaven Rezic. It is mostly a proof-of-concept trial module, and not gauranteed to do what you want. Try this sample code. It makes little circles, but that is just so you can see them, it will do a single pixel.

#!/usr/bin/perl -w
use Tk;
use Tk::Canvas::Point;
use strict;

#adapted from Tk::CanvasPoint by Slaven Rezic 

my $mw = MainWindow->new;
my $c = $mw->Canvas->pack(-fill => "both", -expand => 1);

$c->bind("all", "<1>" => sub {
         my($c) = @_;
         my(@tags) = $c->gettags("current");
         warn "Tags of current item: @tags\n";
         my(@coords) = $c->coords("current");
         warn "Coords of current item: @coords\n";
     });

my $tag = "";

$c->bind("all", "<Enter>" => sub {
         my($c) = @_;
         $tag = ($c->gettags("current"))[0];
     });

$c->bind("all", "<Leave>" => sub {
         my($c) = @_;
         $tag = "";
     });

my @p;

$mw->update;

create_points();

$mw->update;
    for (1..10) {
    delete_last_point();
    $mw->update;
    }

    postscript(0);

    $mw->update;

    my $f = $mw->Frame->pack;
    $mw->Button(-text => "Create points",
        -command => sub { create_points() }
           )->pack(-side => "left");
    $mw->Button(-text => "Delete last point",
        -command => sub { delete_last_point() },
           )->pack(-side => "left");
    $mw->Button(-text => "PS",
        -command => sub { postscript(1) })->pack(-side => "left");

$mw->Label(-width => 10, -textvariable => \$tag)->pack;

MainLoop;

sub create_points {
    for(1..100) {
    my $width = rand(20);
    push @p, $c->create('point',
                rand($c->width),rand($c->height),
                -width => $width,
                -activefill => "white",
                -activewidth => $width+2,
                -fill => [qw(blue red green yellow black white)]->[ran
+d(5)],
                -tags => "tag".int(rand(100)),
               );
    }
}

sub delete_last_point {
    $c->delete(pop @p) if @p;
}


sub postscript {
    my $display = shift;
    my $f = "test.$$.ps";
    $c->postscript(-file => $f);
    open(F, $f) or die $!;
    my($firstline) = <F>;
    close F;
    system("gv $f &") if $display;
}

__END__
[download]

Otherwise, you need to go to SDL to do this. SDL just "blits" stuff to the screen, and there is no object-item associated with it. That is why it is used for games, it can be alot faster. To erase what you previously blited, you write the background color to it's location. Tk is designed to have items, that you can tag, and have mouse and key bindings to it.