use strict;
use warnings;

main (); # Only to ensure no global variables are used - look ma, no variables


sub main {
    my ($dogName, $color) = getDogData ();
    print "The $color dog's name is $dogName\n";
    ($dogName, $color) = getDogData (3);
    print "The $color dog's name is $dogName\n";
}


sub getDogData {
    my ($select) = @_;
    my @names = qw(woof k9 fred max);
    my @colors = qw(spotted white black brown);
    
    $select = rand (@names) if ! defined $select;
    return $names[$select], $colors[$select];
}

##</code><code>##

The black dog's name is fred
The brown dog's name is max