use strict;
[...]
sub foo {
		no strict 'refs';
		my $delete = &$routine_name($row, $nrow, $tablename);
		use strict 'refs';
}