my %operations = (  "+"  => sub { $_[0] + $_[1]},
					"-"  => sub { $_[0] - $_[1]},
					"*"  => sub { $_[0] * $_[1]},
					"/"  => sub { $_[0] / $_[1]},
					"**" => sub {  $_[0] ** $_[1]} );