$sentence = sub { "The next color is ". shift };
$color = q(blue);

print $sentence->($color);