my %function = ( sumsq => sub { my $sum = 0; foreach(@_) { $sum += $_*$_; } return $sum; }, # sum of squares sqrt => sub { return sqrt shift; }, );