#! /usr/bin/perl 
use strict;
use warnings;
use Tk;
use Tk::Entry;
use Tk::Widget;
use Tk::Dialog;

...

my $entry_listenpreis=$frame_place->Entry(-width => 10)->place(-x => 95,-y => 20);