Select Code to Download

#!/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,
)