References

use strict;
use warnings;
use feature 'say';

my $cities = ["Nairobi", "Mombasa"];
say $cities->[0];
say scalar @$cities;

use strict;
use warnings;
use feature 'say';

my $row = { city => "Kisumu", units => 5 };
say $row->{city};
say $row->{units};

use strict;
use warnings;
use feature 'say';

my @rows = ({ city => "Nairobi", units => 12 }, { city => "Nakuru", units => 4 });
say $rows[1]{city};

use strict;
use warnings;
use feature 'say';

my $units = { Nairobi => 12, Eldoret => 3 };
say $units->{Nairobi};