#! /usr/bin/perl -w
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);