package One;

$cache = {};

sub query {

my $sql = "select first, last, phone, address from db..table where last like 'A%'";

data($sql);
}


sub data {
my $sql = @_;

my $dsn = "dbi:mysql:$database:$host:$port";
my $dbh = DBI->connect($dsn,$user,$pwd) || die "Could not connect: $DBI::errstr\n";

my $query = $dbh->selectall_arrayref($sql,
		{ Slice => {} });

foreach my $row (@$query) {
$cache{$row->{phone}}{last} = $row->{last};
$cache{$row->{phone}}{first} = $row->{first};
$cache{$row->{phone}}{address} = $row->{address};
}
bless $cache{$row->{phone}};
}


##</code><code>##

package Two;

use One;

$hash = &One::query();
%hash = %$hash;