my $k = k(\%s);