use strict;
    my $foo = "this is foo";
    my $bar = "foo";
    my $ref = \${$bar};     # ack!