*isa = \&UNIVERSAL::isa;

sub foo {
    my $date = shift;
    return unless isa( $date, 'ARRAY' );
    bar( $date );
}