sub multiplier_by {
  my $x = shift ;

  return sub {
    my $n = shift ;
    return $n * $x ;
  }
}

##</code><code>##

my $m2 = multiplier_by(2) ;
my $m3 = multiplier_by(3) ;

##</code><code>##

my $i = 5 ;
print $m2->($i) ; # prints 10
print $m3->($i) ; # prints 15

# other syntaxes for $m2, $m3 invokations allowed :-)