$self->{TABLE} is a reference to a hash, but values expects an actual hash as its argument. You have to de-reference the hash reference:

my @TABLE_ARRAY = values (%{$self->{TABLE}});
[download]

   MeowChow                                               
                print $/='"',(`$^X\144oc $^X\146aq1`)[-2]