#!/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);