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);