Select Code to Download

use strict;
use v5.10;
...
my @arr = rec($hash, '');

say join(',', @arr);

sub rec {
  my ($hash, $parent, $seen) = @_;
...
  }
  return @str;
}