use strict;
use warnings;

my $array = [];
my $hash = {};

print ref $array, "\n";
print ref $hash, "\n";