my $aref = $f->getVariants(); # reference to array containing many Foo
my $sfoo = shift(@$aref);

my $tiefoo = {};

# warning - this causes segfaults
bless $tiefoo, 'Bar::Foo';
tie %{$tiefoo}, 'Bar::Foo', $sfoo;
$tiefoo->ACQUIRE();