1 1ddd2d4e 2023-09-10 jrmu #!/usr/bin/perl
 2 1ddd2d4e 2023-09-10 jrmu 
 3 1ddd2d4e 2023-09-10 jrmu # Without running it, can you see what's wrong with this piece of a
 4 1ddd2d4e 2023-09-10 jrmu # program? If you can't see the problem after a minute or two, see whether
 5 1ddd2d4e 2023-09-10 jrmu # trying to run it will give you a hint of how to fix it (you might try
 6 1ddd2d4e 2023-09-10 jrmu # turning on warnings):
 7 1ddd2d4e 2023-09-10 jrmu 
 8 1ddd2d4e 2023-09-10 jrmu #my %passenger_1 = {
 9 1ddd2d4e 2023-09-10 jrmu #	name       => 'Ginger',
10 1ddd2d4e 2023-09-10 jrmu #	age        => 22,
11 1ddd2d4e 2023-09-10 jrmu #	occupation => 'Movie Star',
12 1ddd2d4e 2023-09-10 jrmu #	real_age   => 35,
13 1ddd2d4e 2023-09-10 jrmu #	hat        => undef,
14 1ddd2d4e 2023-09-10 jrmu #};
15 1ddd2d4e 2023-09-10 jrmu #
16 1ddd2d4e 2023-09-10 jrmu #my %passenger_2 = {
17 1ddd2d4e 2023-09-10 jrmu #	name          => 'Mary Ann',
18 1ddd2d4e 2023-09-10 jrmu #	age           => 19,
19 1ddd2d4e 2023-09-10 jrmu #	hat           => 'bonnet',
20 1ddd2d4e 2023-09-10 jrmu #	favorite_food => 'corn',
21 1ddd2d4e 2023-09-10 jrmu #};
22 1ddd2d4e 2023-09-10 jrmu #
23 1ddd2d4e 2023-09-10 jrmu #my @passengers = (\%passenger_1, \%passenger_2);
24 1ddd2d4e 2023-09-10 jrmu 
25 1ddd2d4e 2023-09-10 jrmu # {} creates hash references rather than actual hashes. Hash references are
26 1ddd2d4e 2023-09-10 jrmu # stored in scalars not hashes.
27 1ddd2d4e 2023-09-10 jrmu 
28 1ddd2d4e 2023-09-10 jrmu use v5.24;
29 1ddd2d4e 2023-09-10 jrmu use warnings;
30 1ddd2d4e 2023-09-10 jrmu use strict;
31 1ddd2d4e 2023-09-10 jrmu use utf8;
32 1ddd2d4e 2023-09-10 jrmu 
33 1ddd2d4e 2023-09-10 jrmu my %passenger_1 = (
34 1ddd2d4e 2023-09-10 jrmu 	name       => 'Ginger',
35 1ddd2d4e 2023-09-10 jrmu 	age        => 22,
36 1ddd2d4e 2023-09-10 jrmu 	occupation => 'Movie Star',
37 1ddd2d4e 2023-09-10 jrmu 	real_age   => 35,
38 1ddd2d4e 2023-09-10 jrmu 	hat        => undef,
39 1ddd2d4e 2023-09-10 jrmu );
40 1ddd2d4e 2023-09-10 jrmu 
41 1ddd2d4e 2023-09-10 jrmu my %passenger_2 = (
42 1ddd2d4e 2023-09-10 jrmu 	name          => 'Mary Ann',
43 1ddd2d4e 2023-09-10 jrmu 	age           => 19,
44 1ddd2d4e 2023-09-10 jrmu 	hat           => 'bonnet',
45 1ddd2d4e 2023-09-10 jrmu 	favorite_food => 'corn',
46 1ddd2d4e 2023-09-10 jrmu );
47 1ddd2d4e 2023-09-10 jrmu 
48 1ddd2d4e 2023-09-10 jrmu my @passengers = (\%passenger_1, \%passenger_2);