print $scalar1 .= $scalar2; #### my $arg = 1; someMutator( $arg ); print $arg; #### print someMutator( 1 ); #### my $widget = Tk::SomeWidget->new( ... ); $widget->Add( ... ); $widget->pack( ... ); #### my $widget = Tk::SomeWidget->new( ... )->Add( ... )->pack( ... );