my $scalar = '';
$scalar = {};
print ref $scalar, "\n";
$scalar = [];
print ref $scalar, "\n";

use IO::File;
$scalar = IO::File->new();
print ref $scalar, "\n";
[download]

Update: Perl is loosely typed. Assignments tend not to care about the previous contents of the variable. That's all.