perl -E '
use strict;
use warnings;
my @projects;
push @projects, [ [ "the", "data" ], "key"];
push @projects, [ [ "more", "data" ], "another key"];
for (@projects) {
  my @data = @{ $_->[0] };
  my $key  = $_->[1];
  say "DATA: @data";
  say "KEY:  $key";
}
'