1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 
5 my %gilligan_info = (
6 	name     => 'Gilligan', 
7 	hat      => 'White', 
8 	shirt    => 'Red', 
9 	position => 'First Mate',
10 );
11 my %skipper_info = (
12 	name     => 'Skipper',
13 	hat      => 'Black',
14 	shirt    => 'Blue',
15 	position => 'Captain',
16 );
17 
18 my @crew = (\%gilligan_info, \%skipper_info);
19 
20 my $format = "%-15s %-7s %-7s %-15s\n"; 
21 printf $format, qw(Name Shirt Hat Position); 
22 
23 foreach my $crewmember (@crew) {
24 	printf $format, 
25 		$crewmember->{'name'}, 
26 		$crewmember->{'shirt'}, 
27 		$crewmember->{'hat'}, 
28 		$crewmember->{'position'};
29 }