#!/usr/bin/perl -w

use strict;

my %data=(
	a => 1,
	b => 2,
);

print join(' ',%data);

##</code><code>##

#!/usr/bin/perl -w

use strict;

my %data=(

=head1 The "a" key

one

=cut

	a => 1,

=head1 The "b" key

two

=cut

	b => 2,
);

print join(' ',%data);

##</code><code>##

Bareword found where operator expected at pod-in-structure.pl line 7, near ""a" key"
        (Missing operator before key?)
Bareword found where operator expected at pod-in-structure.pl line 15, near ""b  key"
        (Missing operator before key?)
syntax error at pod-in-structure.pl line 7, near "(

="
Execution of pod-in-structure.pl aborted due to compilation errors.