#!/usr/bin/perl

use strict;
use warnings;

my $data =
  {
  986172 => { cat_name => "Category1", cat_parent_id => "" },
  986176 => { cat_name => "Category2", cat_parent_id => 986172 },
  986177 => { cat_name => "Category3", cat_parent_id => 986176 },
  986178 => { cat_name => "Category4", cat_parent_id => 986177 },
  };

my $parents = '';
for my $v ( values %$data )
  {
  $parents .= $v->{cat_parent_id}
    ? $v->{cat_name} . ' ' .  $data->{$v->{cat_parent_id}}{cat_name} . "\n"
    : $v->{cat_name} . "\n";
  }
#print "$parents\n";

my @order;
$parents =~ s/\b($1)\b//g, push @order, $1 while $parents =~ s/^(\w+)\h*\n//m;
my $answer = join ',', @order;
print "$answer\n";
$parents and die "loop in parents at\n$parents";