my @results;
foreach my $row (@$data) {
   push @results, treeify(@$row);
}

print Dumper @results;

sub treeify {
   my @list = @_;
   my $node = shift @list;
   return {} unless $node;
   return {$node => treeify(@list)};
}