...->pack(-side=>right);
...
...->pack(-expand=>1, -fill=>x);