# identity.pm

package id;

use strict;
use warning;
use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw (%id);


our $id = ( Name => "Sally", Age => "23");

);

##</code><code>##

# file1.pl

use id;
use strict;
use warning;

$id{Name} = "Jim";
$id{Age} = 16;