...
for (0..$#arr) { $fruits{$arr[$_]->[0]} = $arr[$_]->[1] }
...
# thus:

$VAR1 = {
          '6' => 7,
          '1' => 2,
          '3' => 5
        };