my $r = [ 1 , 2, 3];  # arrayref
my $q = { 1 =>2 , 3=> 4 };  # hashref
my $t = sub{  print 1; };  # code ref