so you want something like:

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

...

my $arg='B';
[download]

Prints (using previous sample code):

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