if you've 'shift'ed your Tk object, then you get your data as $_[0]->{deck} and alike instead of just $_->{deck}

Otherwise show your code and I'll try to figure out what namely is wrong.