my ($x, $y, $z) = ( ... ); ... my %weather = ( 'precip' => get_precip_function($x, $y, $z), 'wind_speed' => sub { ... }->($z, $y, $x), ..., );