use 5.010;
use strict;
use warnings;

my @array = (
    {
       car => "ford",
       color => "red",
       pet => "dog",
    },
    {
       car => "honda",
       color => "blue",
       pet => "cat",
    },

    {
       car => "dodge",
       color => "orange",
       pet => "spider",
    },
  );

say return_selected_elements( \@array, 'car', 0, 1 );

sub return_selected_elements {
    my  $AoHref     = shift;
    my  $element    = shift;
    my  @Instances  = @_;
    return join ", ", (map $AoHref->[$_]->{$element}, @Instances);
}