$ perl -MData::Dumper -Mstrict -wE 'my $foo = {}; say for @{ $foo->{bar} }; say Dumper $foo'
$VAR1 = {
'bar' => []
};
####
$ perl -MData::Dumper -Mstrict -wE 'my $foo = {}; say for @{ $foo->{bar} // [] }; say Dumper $foo'
$VAR1 = {};
####
open(my $fh, '<', "$file_path") or return 0;
my $href = {};
while (my $line = <$fh>) {
# ...........
# ...........
# Additional operations of the lines of the file
# ...........
# ...........
push @{ $href->{test} }, {
group => $group,
values => [ sort uniq $value, @{ $href->{values} // [] } ],
};
}