use Math::BigRat; $m = "new"; $a = Math::BigRat->$m(5); $b = Math::BigRat->$m(8); for $m (qw(add sub mul div)) { $x = $a->copy->${\("b".$m)}($b); print "$a $m $b = $x\n" }