...->pack(qw{-side right});
...
...->pack(qw{-expand 1 -fill x});