use strict;
use warnings;
my @load_array = (1,2,3);
my %load_number_hash = ();
foreach(@load_array){
     $load_number_hash{$_} = $_;
}

%load_number_hash = ();
print $load_number_hash{1};