Help for this page
#!/usr/bin/perl -w use strict; ... $hash_1{$array_temp[0]} = $array_temp[1]; }
@array_2 = (1,2,3,500,505) %hash_1 = ( ... 500 => 2, 505 => 1, )