package Foo;

sub new {
    bless { val => $_[1] }, $_[0];
}

sub zug {
    my $self = shift;
    my $arg  = shift;
    return "$arg $self->{val} $arg";
}

sub zwang {
    my $self = shift;
    my $arg  = shift;
    return join( ' ', ($self->{val}) x $arg );
}