my @header = qw( first_name last_name phone );

my @aoh = (
  { first_name => "Jane",
    last_name  => "Rizzoli",
    phone      => "555-1212" },
  { first_name => "Maura",
    last_name  => "Isles",
    phone      => "555-1515" },
    );
csv (in => \@aoh, headers => \@header);