my ($self, $no1, $no2, $name1, $name2) = @_;