sub thinger {
     my @array;
     if (ref($_[0]) eq 'ARRAY') {
             @array = @$_[0]; 
     } else {
             @array = @_;
     }
     ...

}