sub access {
    my ($self, $arg) = @_;
    return $self->{$arg};
}

...

my $arg='B';


##</code><code>##

F
a
B
i
o
http://wibble.wobble.com