#!/usr/local/bin/perl
use strict;
use warnings;

my %people;
my @sentences = ("here i am","i am me");
$people{me}[0] = 0;
$people{me}[1] = "1985";
$people{me}[2] = "@sentences"; #interpolating...

@sentences = ("there she is");
$people{friend}[0] = 1;
$people{friend}[1] = "1984";
$people{friend}[2] = "@sentences";




foreach my $person (keys %people){     #each key references an anonymous array.
        my $rowId = $people{$person}->[0];
        my $DOB =   $people{$person}->[1];
        my $sentence = $people{$person}->[2];
        addDOBToDatabase($rowId, $DOB);
        addSentenceToDatabase($rowId, $sentence);
        }
        
sub addDOBToDatabase{
    my @args = @_;
    print "ID:$args[0], DOB:$args[1]\n";
    }
    
sub addSentenceToDatabase{
    my @args = @_;
    print "ID::$args[0], Sentence: $args[1]\n";
    }

#Viewing data structures can help make decisions on the looping strategy...

use Data::Dumper;
print "\n\UViewing the Data Structure through Data::Dumper:\E\n";
print Dumper(\%people);

##</code><code>##