#!perl # Dumper demo cgi use strict; use Data::Dumper; print "Content-Type: text/html\n\n"; print '
'; my $ref = [ { ID => 'ABC'},{ ID => 'DEF'},{ ID => 'GHI'} ]; print '$ref
'; print Dumper $ref; print '
'; my @array = map { $_->{ID} } @$ref; print '@array
'; print Dumper @array; print '
'; my @error = @array."\n"; print '@error
'; print Dumper @error; print '
'; #### my @array = @$resultsRef foreach my $hit (@array) { # $hit is a hash reference. my %hash = %$hit; push @searched, $hash{ID}; }