Select Code to Download

use strict;
use warnings;
...
    $select = rand (@names) if ! defined $select;
    return $names[$select], $colors[$select];
}

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