use strict;
my $var = [qw(this is an array)];
print ref $var;

my $var = "This is a scalar";
print ref $var;

my $var = { message => "This is a scalar" };
print ref $var;