Please check the following code. I want to print array, but it only print the first item in array.
$prefix = 'ABC';
$search_pc_exclude = "PC1 PC2 PC3";
@exclude = split(/\s+/, $search_pc_exclude);
push @prefix, {"pre" => $prefix, "exc" => @exclude};
print $prefix[0]->{pre};
print $prefix[0]->{exc}; #why this is not array?
The assignment actually is processed like this:
push @prefix, {"pre" => $prefix, "exc" => "PC1", "PC2" => "PC"}
Which gives you a hash with these keys. You need an array reference for that:
# This creates a copy of @exclude
push @prefix, {"pre" => $prefix, "exc" => [@exclude]}
Or:
# This creates a reference to @exclude. Any modifications to
# $prefix[0]->{exc} are actually modifications to @exclude
push @prefix, {"pre" => $prefix, "exc" => \@exclude}
