#!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 '
';