sub copy_entry 

{

$copy_text = $dude->get();
chomp($copy_text);

$queryHandle = $dbshop->prepare(" SELECT * FROM Department WHERE ( Ext  = '$copy_text' OR Mobile = '$copy_text' OR [E-Mail] = '$copy_text' OR [Full Name] = '$copy_text' OR [Direct Number] = '$copy_text' ) ");
$queryHandle->execute()
             or die $DBI::errstr;

while (my @row = $queryHandle->fetchrow) {


$dude2->insert("end", $row[0]);
$dude3->insert("end", $row[1]);
$dude4->insert("end", $row[2]);
$dude5->insert("end", $row[3]);
$dude6->insert("end", $row[4]);
						
					 }

$queryHandle->finish();