my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a;