sub ted {
my($add,$sub,$mul) = @_;
...
..
}