$bla = bless {}, "Bla";

sub austauschen {
    my $objref = shift;
    $$objref = bless {}, "Foo";
}

austauschen(\$bla);

use Data::Dumper;
warn Dumper($bla);