sub foo {
   my ($self,$ref) = @_;

   $ref = [$ref] unless ref $ref eq 'ARRAY';
   
   if ($#$ref) {
      # do case number 1
   }
   else {
      # do case number 2
   }

}