my $textTopStart = 228;
my $textTop = $textTopStart;
my $textHeight = 21;
my @textWidth = ("4", "160", "309", "460", "609");


sub AddRow {

  $dude2 = $xscrollleft->Text(-font => $font, -background => 'white', -foreground => 'black',-height => 1,-width => 22)->place( -x => $textWidth[0], -y => $textTop);
	$dude3 = $xscrollleft->Text(-font => $font, -background => 'white', -foreground => 'black',-height => 1,-width => 21)->place( -x => $textWidth[1], -y => $textTop);
	$dude4 = $xscrollleft->Text(-font => $font, -background => 'white', -foreground => 'black',-height => 1,-width => 21)->place( -x => $textWidth[2], -y => $textTop);
	$dude5 = $xscrollleft->Text(-font => $font, -background => 'white', -foreground => 'black',-height => 1,-width => 21)->place( -x => $textWidth[3], -y => $textTop);
	$dude6 = $xscrollleft->Text(-font => $font, -background => 'white', -foreground => 'black',-height => 1,-width => 22)->place( -x => $textWidth[4], -y => $textTop);
	$textTop += $textHeight;
	
}