&mysub2(mysub1);
sub mysub1{
    # Returning something
    return \@data;
    
    # on error 
    return undef;
}
sub mysub2{
    my $result = @_;
    unless($result){
        print "Array is not defined" #Expected out come
    }else{
        print "Exists";
    }
}