Select Code to Download

sub tree_data {
  my ( $old_data, $key_name, $next_group, @remaining_keys ) = @_;
...

  return \@new_data;
}

#!/usr/bin/perl

...
    orig_tree_data($input4, 'team', 'employees', 'employee', 'work_day
+s'),    
    '... both the same again');