I believe you are wrong (or at least the [] is important as almut suggests):

use Data::Dumper;

my $blessedBe = bless {}, 'Wibble';

print Dumper $blessedBe;
print Dumper [$blessedBe];
[download]

Prints:

$VAR1 = bless( {}, 'Wibble' );
$VAR1 = [
          bless( {}, 'Wibble' )
        ];
[download]

Sure, the $VAR1 = is an artifact, but not the square brackets... (which indicate that Data::Dumper was given an arrayref).  Compare with your first dump in the line:

scriptbed login: $VAR1 = bless( \*Symbol::GEN0, 'Expect' );
[download]

Ah, yes. Your modification works as expected:

                sub {
                  my $fh = shift;
                  print Dumper $fh;
                  $fh->[0]->do_soft_close();
                  die "Timed out\n";
                }
[download]

No errors. Thank you.