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