Help for this page
"my" variable $k masks earlier declaration in same scope at a.pl line +6.
use strict; ... return defined $k ? $k : 'undef'; }