Beutelevision

Can you see what is wrong with this Perl code snippet?
foreach my $cat (@$categories) {
if ($cat->{col} == $column and $cat=>{pos} == $position) {
return $cat;
[...]