foreach  my $dog(Dog @showdogs)
{
   print $dog->bark(),"\n";
}