use warnings;
sub discard_object {
	my @args = @_;
	#print ref $args[0]if (ref $args[0]) =~ /UI/;
	shift @args if (ref $args[0]) =~ /UI/;
	@args
}

my $obj = bless {}, 'UI';
#print ref $obj; exit;
my @args = ($obj, 1, "sax");
@args = discard_object(@args);
print "@args";
@args = (3, 4, $obj, 1, "sax");
@args = discard_object(@args);
print "@args";
__END__
shift @_ if (ref $_[0]) =~ /UI/; # discard object
