use Data::Dumper;
%fruits=();
@arr = ([1,1],[1,2],[3,5],[6,7]);
for (@arr)
{
$a = $_->[0];
$b = $_->[1];
$fruits{$a} = $b;
}

print Dumper(\%fruits);

##</code><code>##

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