You could use padding to control positioning:

my $emailLab1 = $mw->Label(-text=>"Enter name:", -relief => 'ridge')->
+pack(-side => 'left', -padx => 10);
[download]

(I added the relief, on order to make it visible.)