my $foo = Obj->new;
for (qw( create init add )) {
  $foo->$_();  # note -- $foo->$_ will not work, ()'s needed
}

##</code><code>##

my $meth = 'meth';
$A::B::{$meth}->(25);
# %A::B:: is a symbol table
# $A::B::{$meth} holds the typeglob *A::B::meth
# *A::B::meth->(...) is like A::B::meth(...)

##</code><code>##

#!/usr/bin/perl

use strict;

@:: = qw( this program uses empty variable names );
for $:: (@::) { print $::; }  # ::; looks confusing ;)
open ::, ".cshrc";
print scalar <::>;  # is there no end to this madness?
close ::;