my $sym = Devel::Symdump->new('Foo');
    my @scalars = $sym->scalars;

    for my $s (@scalars) {
        # do something
    }