QUOTE(Sun751 @ 26 Jun, 2009 - 12:16 AM)

In my script I am using hash and hash reference,
to make my out put up to the order I tried to use
Tie::Hash
But i am getting Warning, and I don;t understand why
if any one can suggest me, Please
here is my code,
CODE
use strict;
use warnings;
use Tie::Hash;
my (%resource,%wnt,%unx,%component);
my ($os,$informix,$oracle,$sql);
tie %resource, 'Tie::Hash';
tie %wnt, 'Tie::Hash';
tie %unx, 'Tie::Hash';
tie %component, 'Tie::Hash';
inspect(\$os,\$informix,\$oracle,\$sql);
initialize(\%resource,\%wnt,\%unx,\%component,$config_file);
consolidate(\%resource,\%wnt,\%unx,\%component,$informix,$oracle,$sql);
dispatch(\%resource,\%wnt,\%unx,\%component,$os);
Cheers!
Hurray,
found the solution, add Ix in front of hash,
CODE
use strict;
use warnings;
use Tie::IxHash;
my (%resource,%wnt,%unx,%component);
my ($os,$informix,$oracle,$sql);
tie %resource, 'Tie::IxHash';
tie %wnt, 'Tie::IxHash';
tie %unx, 'Tie::IxHash';
tie %component, 'Tie::IxHash';
inspect(\$os,\$informix,\$oracle,\$sql);
initialize(\%resource,\%wnt,\%unx,\%component,$config_file);
consolidate(\%resource,\%wnt,\%unx,\%component,$informix,$oracle,$sql);
dispatch(\%resource,\%wnt,\%unx,\%component,$os);
Any way thanks,
Cheers