$ perl -E 'use strict; use warnings; my %d = ( foo => \&foo ); say "OK"'
OK