sub eek {
my ($selection)=@_;
$gsubhash{$selection}->(@_[1..$#_]);
}