package mylib;
   use strict;
   use warnings;
   use Exporter;
   use vars qw(@ISA @EXPORT);
   @ISA = qw(Exporter);
   @EXPORT = qw( load_hash );

sub mylib::load_hash {
   my $href = shift;
   for (1..1000) {
      $$href{$_} = $_;
   }
}