package My_Stuff;

use strict;
use Data::Dumper;
require Exporter;

use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw (@ary);

my  @ary = (
       	rec_length	=>  	'A4',
       	fname		=>  	'A20',
        lname           =>      'A20',
);

1;

##</code><code>##

package Record_Stuff;

use strict;
use Data::Dumper;

use My_Stuff;


my $rec_struct = [
	@ary,
	title		=>  	'A4',
     	initials	=>  	'A3',
     	street		=>  	'A40',
];
sub get_record_structure {
	return $rec_struct;
}
1;

##</code><code>##

use strict;
use Data::Dumper;

use Record_Stuff;

print Dumper Record_Stuff::get_record_structure();

##</code><code>##

$VAR1 = [
        title,
        'A4',
     	initials,
        'A3',
     	street,
        'A40',
];