my $reference1 = [1, 2, 3, 'four'];