$ perl 1140597.pl
$a: 1 $array[1] 543
$a: 3 $array[3] 5432
$a: 5 $array[5] 623
$a: 8 $array[8] 62
$