# not
$hierarchy{$directory} = ();
# but
$hierarchy{$directory} = [];

# later, not
push($hierarchy{$directory}, $filename);
# but
push(@{ $hierarchy{$directory} }, $filename);